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COPYRIGHT NOTICE 


Most computer programs have been submitted for protection under 
the same United States Copyright Laws that protect other types of 
publications. 

It is a violation of the law to reproduce these materials for any 
purpose other than personal convenience, or for any purpose at 
all that would prevent the copyright owner from fully realizing 
its due benefits. 

In plain words, you cannot legally resell these programs to any 
other person; you cannot legally distribute copies of these 
programs to any other person, school, user group, business, etc.; 
and you cannot legally conduct any sort of a commercial activity 
that uses these programs as a part of your business- Face it—if 
you pirate these programs or let someone else pirate these 
programs, you are depriving other individuals of their deserved 
income. Look at it this way--if the software is good enough to 
copy, it's good enough to pay for. Please send any questions 
about this to CDS Corporation, 695 East Tenth North, Logan, Utah 
84321, or phone (801) 753-6990. 

©Copyright CDS Corporation, 1980 
All Rights Reserved 


Although we believe this program to be accurate, no 
representation is made or is to be implied as to the 
suitability, accuracy or fitness of any of the programs for*any 
particular purpose. CDS Corpoation shall not be liable for 
incidental or consequential damages resulting from the use of, 
performance of, or supply of these programs. 
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THE STORY OF ATARI SAFARI 


On a search through Africa (yes, Africa is east of Cleveland) for 
diamonds and gold, our Roving (and sometimes Raving) Reporter, 
Oscar, was taken captive. Now Oscar was one of those "can do" 
people. In other words, whenever there was something to do, he 
was in the can. But in all fairness to Oscar, he did have his 
share of confidence. He's the one who went after Moby Dick with 
a rowboat, a harpoon, and a jar of tartar sauce. He is the only 
man we know that is the life -- and death — of a party. 

But, back to his captivity: The natives that captured him 
decided to boil him and eat him (they'd only make that mistake 
once). Oscar started to tell them about America, baseball and 
computers. He told them about playing games on the Atari, how 
they could use it to keep track of how many "skulls" they had 
available to spend by using the Checkbook program, how they could 
use the Shapebuilder to create shapes and figures to use in their 
own programs, how they could.... 

The natives loved Oscar's stories so much that they took him out 
of the hot tub they were marinating him in and came to America 
with him. When they arrived, Oscar explained his predicament, so 
we asked his Safari Guide to help in the production of these 
programs for Oscar and his tribe (they have adopted each other). 
Oscar is still alive and well-just a little wrinkled from being 
marinated. 
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SOFTWARE SPECIFICATIONS « OVERVIEW 

All programs in ATARI SAFARI are written in Atari BASIC. The 
minimum recommended configuration is either a 16K Atari with a 
cassette tape player or a 24K Atari with a disk drive. The 
software will run on either an Atari 400 (with 16K memory) or an 
Atari 800. 

ATARI SAFARI provides a variety of software for the new owner as 
well as the veteran. All of the programs can be listed and 
modified. The utilities can be included in your own programs. 
These programs have been written by some of the best talent on 
the "Safari", and we know you'll enjoy and appreciate some of the 
unusual techniques. Like one gentleman who said the programs 
were a "pretty good buy" at $39.95. After talking with him a 
little longer, we realized that he thought the programs were 
$39.95 per program. We told him that all 25 were $39.95 for the 
disk version and he literally ran to get his checkbook. We still 
have the feeling that he thinks we're a little crazy to sell such 
good software at such a great price. Maybe he's right (but we 
sure smile a lot). 

LOADING ATARI SAFARI FROM DISK 

Follow these instructions to load from disk: 

1. Turn on disk drive. 

2. Insert the disk into the disk drive. 

3. Turn on the computer. 

That's all you need to do, as you can see. 

LOADING ATARI SAFARI FROM TAPE 

Follow these instructions to load from tape: 

1. Press the rewind button on your tape player and completely 
rewind the tape. 

2. Type CLOAD, then press RETURN. Press the PLAY button on 
your tape player and RETURN again. After a few seconds, the 
computer will beep. 
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3. When the program is loaded, the tape will stop moving. Push 
STOP on your tape player. Type RUN, then press RETURN. 

4. To return to the beginning of your program tape, push SYSTEM 
RESET and type CLOAD. To go to the beginning of the next 
program push RESET. Type CLOAD, then press RETURN. Press 
the PLAY button on your tape player and RETURN again. After 
a few seconds, the computer will beep. When the program is 
loaded, the tape will stop moving. Push STOP on your tape 
player. Type RUN, then press RETURN. 

5. For ease in selecting commonly used programs, you may copy 
each of them on a separate tape. 

WHAT TO TRY WHEN IT DOESN'T LOAD 

1. Check all cords, cartridges, etc. Wiggle everything 
carefully! 

2. You may have gotten a glitch from a large fluctuation in 
electrical current. Try to load again. 

3. Listen to the T.V. monitor. You should be able to hear the 
leader tones and the digital program sound. If you don't, 
your tape deck may be faulty. Try a different tape deck. 

4. Try some other software that you have run recently. If it 
doesn't run, your Atari has problems. Try the various things 
you usually try. Read your Atari manual. Send out for 
Pizza--at least your stomach will be happy (unless you don't 
like Pizza—Chinese food, anyone?) 

5. Call your local computer dealer. He'll be glad to help you. 
If everything but the tape or disk works, bring it in and 
trade it. That is our policy—we stand behind all of our 
products. 
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DATE 


Description : Date calculates the number of days between two 
dates or will tell you what day of the week a particular date is 
on (such as your birth date). And you thought this was a program 
to get you dates with those beautiful girls from Idaho! 


Instructions : To use the Date program, select it from the Master 
Menu. You will then see the Date Function Menu, which offers you 
three choices: 


(1) Days Between Dates. 

(2) Calendar. 

(3) Exit to Master Menu. 

To use the Days Between Dates function, type "1" and press 
RETURN. Then enter the first date using the following "numbers 
and commas" format: 3,24,1949. Then enter the second date using 
the same format. Your Safari Guide will then display on the 
screen the number of days between those two dates. 


Comments : The calendar was adjusted in 1582 A.D. (it was 

adjusted by someone else--we weren't there--we're clever, but not 
that clever--but we're working on it), so you should try dates 
after that time. If you have a genuine need to work with Days 
Between Dates in years before 1582 A.D., we'd like to know what 
you're up to. 

Flash! We have just been given the first example of using Days 
Between Dates in years before 1582 A.D. The example is told to 
us as follows: If I have an ancestor born July 23, 1423 A.D. 
who died April 11, 1477 A.D., how old was he when he was 
destroyed by the Mongol hordes as they overran his village? 
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Well, we took our cue from Mr. Abbot (Mr. Farnsworth's personal 
private executive secretary In the movie "Heaven Can Wait") who 
replied In the following way to a similar question: "I think 
you'd have to define the word destroy." This seemed to confuse 
and irritate our historian (It didn't work in the movie either) 
and so we said, "Add 300 years to each date. This will give you 
the answer of 19,627 days, and all you have to do is divide 
19,627 by 365 and you have the number of years that your 
ancestor lived." Of course, there is a much faster way of doing 
it, but as any software house knows, the first thing people do 
with a program is look for holes, bugs and gaps. You'd never do 
that, would you? 

To use the Calendar Function, select it from the Date Function 
Menu. Enter your date in response to the screen prompt. Use the 
following "numbers and commas" format: 12,31,1980. Your Safari 
Guide will then display the day of the week on which the date 
occurred. 

Comments : If Saturday Nite Live stays on Saturday nights and 
continues for another 50 years (can you see John Belushl at the 
age of 84?), it will have the curious experience of being on 
television on the day 2,2,2222—February 2, in the year 2222. 
Just thought you'd like to know. By the way, in case you didn't 
know, the comments section of this manual is totally optional. 
In fact, the whole manual Is optional. Actually, the whole 
computer Is optional, but you know that, we hope. Let us move 
on. 
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UNITS CONVERSION 


Description : Units Conversion is very appropriately named. You 
can use Units Conversion to convert: 

(1) Units of Length: inches, feet, yards, miles, 
millimeters, centimeters, meters and kilometers. 

(2) Units of Weight: ounces, pounds, tons, 

milligrams, grams, kilograms and metric tons. 

(3) Units of Volume: gallons, quarts, bushels, 

cubic feet, cubic inches, liters and cubic 
centimeters. 

(4) Units of Temperature: Farenheit, Centigrade and 

Kelvin. 


Instructions : To use the Units Conversion program, select it 
from the Master Menu. Then select the type of conversion you 
wish to make, i.e., (1) Length, (2) Weight, (3) Volume, or (4) 
Temperature, from the Units Conversion Function Menu. In 
response to the screen prompt, enter the unit type that you wish 
to convert. 


Comments : Haven't you always wondered how many cubic inches 
there are in a gallon of milk? 



FINANCIAL CALCULATOR 


Description: Financial Calculator will compute the following 
factors of a loan: 

(1) Interest Rate. 

(2) Payment Amount. 

(3) Number of Payments Needed. 

(4) Amount of Loan. 

(5) Amount of Interest Paid. 

(6) Total Amount Actually Paid. 


Instructions: To use Financial Calculator, select it from the 
Master Menu. Then select the program function you wish to use to 
perform your calculation. Enter your numbers without dollar 
signs or commas. If the numbers you enter do not compute, your 
Safari Guide will display a "DOES NOT COMPUTE" message and allow 
you to re-enter your calculations. When you are through using 
the Financial Calculator, you can return to the Master Menu by 
choosing the last option on the Financial Calculator Function 
Menu. 


Comments: To show you the effect of larger payments, take 
$40,000.00 @ 16% A.P.R. -- this can be amortized in 165 
paymments of $600.00 or 504 payments of $534.00. Financial 
Calculator is guaranteed to terrify you as you calculate a 30 
year loan of $75,000.00 at 18%. If the monthly payments don't 
scare you, look at the total amount that you will pay the bank in 
30 years. Guaranteed to make strong men (and women) faint. 
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DEMOLITION DERBY 


Description: Demolition is a fast moving game of strategy where 
two players try to force each other to run into the wall or their 
own trails. It looks so simple until you play someone who has 
thought of the various strategies that can be used to win. 


Instructions: Plug your joysticks into the left two slots on the 
front of your computer. You can then direct your "destroyer" to 
go up, left, right and down. Your "destroyer" will not respond 
to diagonals. Each time you demolish your opponent by forcing 
him to crash, you get a point (that's a blue or red point--no 
brownie points in this game). The first player to get three 
points wins. At the beginning of each game set, you may also 
select the speed at which your markers move. Simply respond to 
the screen prompt with a number from 1 to 9 (l = slowest, 
9=fastest). 


Comments: We know that, at various times, you have wanted to 
give us your comments. We encourage this and have provided a box 
below in which you may do this. Please provide us with your 
total, complete, candid and frank feedback. Thank you. 

□ 


(Actually, we would very much enjoy hearing from you.) 



MATH 


Description: The math programs (Addition, Subtraction, 
Mul tipiication and Division) are simple, quick and fun for the 
right people. When you answer five problems correctly, the 
difficulty increases. 


Instructions : To use any of the four math programs, simply 
choose the "Math" function from the Master Menu. You may then 
select the math programs you want to run. 


Comments : One of the best uses we have seen for these programs 
is to use them as a model for Computer Assisted Instruction. 
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THINK 


Description: Think is a test of your memory circuits (the ones 
in your head, not in your computer). 


Instructions : To play Think, select it from the Master Menu. 
There are six rectangles displayed across the screen, numbered 1 
to 6. The Safari Guide will play and light up the numbered 
rectangles. Using the numbers on your computer's keyboard, you 
then repeat back the same sequence. See how many tones you can 
repeat back in sequence. Each time you are correct, you get a 
point. If you are incorrect, you get a strike. Three strikes 
and you are out. You can vary the length of the tones played by 
selecting your speed. Respond to the screen prompt with a number 
from 1 to 255 (l=fastest, 255=slowest). 


Comments : The in-house record is 40 tones. At a speed setting 
of 1, you can barely see the blip. 
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MOUNTAIN 


Description : You are the operator of a gigantic "KABOOM" cannon. 
The cannon is so huge that only the top of the barrel appears on 
the screen (as the green shape on the far left). You have three 
targets on the other side of the big mountain. The targets have 
values of 10, 20, or 30 points. The targets change position 
randomly. The mountain changes size and shape each time you 
shoot. You only have 250 ammo charges, so try to hit the 30 
point target each time. Your Safari Guide will automatically 
keep track of your total points and the number of ammo charges 
that you have left. 


Instructions : Simply select Mountain from the Master Menu and 
follow your prompts. When you are to the playing screen, simply 
input your charge (try 25) and press RETURN. Then input your 
angle (try 81) and press RETURN. Adjust your angle and velocity 
as necessary to hit the 30 point target as often as possible. 
You have only 250 units of ammo charges left from yesterday's 
battle. You must very carefully calculate how much charge to use 
on each shot, so that you can shoot clear over the mountain as 
many times as possible. If you tried our suggestions in the 
above instructions, you have learned a few things already. As 
little as 15 units of charge will let you hit the far right 
target if the mountain is low. 


Comments : The targets are canisters of film that contain all the 
terrible television commercials that we've had to suffer through 
this year. And if you don't destroy them, we'll have to watch 
them next year too. Good luck and good shooting. 
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BLACK HOLE CHASE 


Description : You are being chased by creatures from a black 
hole. A black hole is an area of outer space (yes, outer space 
is west of Cleveland), where gravity is so strong that even light 
rays can't escape. You must pilot your spacecraft across the 
galaxy and away from them as fast as possible. 

At the same time, you must avoid three things: (1) moving your 
ship into your own vapor trail—it's radioactive, but will 
disappear after a while; (2) the edge of the galaxy; and (3) 
the stars and planets in your galaxy. The edge of the galaxy is 
visible at first, and then, little by little, minute by minute, 
the creatures make parts of the galaxy edge disappear by turning 
it into a black hole. Don't run into it or they'll get you. 


Instructions: Use the I, J, K and M keys to move up, left, right 
and down through the galaxy. You can set the difficulty from 0 
to 9. Zero will give you a galaxy free of obstacles to move 
around. If you can outrun the Black Hole Creatures for over 200 
hours, they'll run out of fuel before you do and you'll be saved. 
When you've gone 30 units, the speed increases and then increases 
again at 100 units. 


Comments : We know you were expecting a game where you could 
search for the 18 holes at the Burning Tree Golf Course (they 
disappeared last week — the holes, not the golf course), but 
that is not this game. We think it beats looking for golf holes. 
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LEMANS 


Description : Safari Lemans can be as hard as the real race or as 
easy as a Sunday afternoon drive. You can vary the speed of your 
car (faster and slower) and as you go faster, the track becomes 
more treacherous. 

Instructions: To begin your Safari Lemans, select Lemans from 
the Master Menu and follow your screen prompts. To start the 
race, press your joystick toward the top position. Holding it in 
the top position increases your speed (and the scale of the sound 
goes up) and the back position decreases your speed. The faster 
you travel, the faster your score adds up. You have 60 seconds 
to drive your course. Your time is shown in the top left corner 
of your screen. Moving your joystick to the right will move your 
car to the right and moving your joystick to the left wil 1 move 
your car to the left. 


Comments: Only the "front" part of your car is sensitive to 
crashing, allowing you to "fishtail" as necessary to navigate 
your course. You can also jump the track and get a free ride if 
you're really clever. If you're really good, you can jump the 
track again and get back in without crashing. 
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LUNA 


Description: Better known as Luna: Crash, Take Off or Land. The 
primary object of Luna is to land your spacecraft safely on the 
surface of the moon. 


Instructions : You are the pilot of a new lunar vehicle. Model 
XXY3. The craft has developed a minor problem: the guidance 
computer has failed. You must now attempt to land on the lunar 
surface for repair work. You control the descent (or ascent) of 
the craft by burning fuel at regular periods. If you burn too 
much too quickly, you may be shot out of the moon's gravitational 
field and into the cold dark reaches of outer space. If you burn 
too little fuel, you will reach the surface of the moon—forever. 

The amount of fuel you can burn is controlled by the joystick 
position (wake up and plug -‘n your joystick into the left slot on 
the front of your computer). Putting your joystick in the top 
right position will burn one unit of fuel each time you press 
your red button. As you move your joystick around clockwise, you 
will be able to burn more fuel each time you press your red 
button on your joystick control. The top position gives your 
maximum burn rate of 10 units of fuel per burn. Press any key to 
begin descent. 


Comments : Watch your status indicators in the top left portion 
of your screen. You can see the status of your fuel, velocity, 
distance, burn rate and time. 
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ALIEN 


Description : You are on the spaceship NIMROD. The alien has 
killed the rest of the crew and is now searching for you. He 
wants you for your gourmet qualities. You have a few minutes to 
break the code number that will open the weapons vault. And you 
want to do that because the only weapon that will safely destroy 
the alien is the antimatter laser rifle that is stored in the 
weapons vault. 


Instructions: The secret code is made up of numbers from 1 to 9 
in any order, none repeated. Mother, the ship's computer, will 
allow you to decide the number of digits (from 2 to 9) in the 
code. If the alien gets you before you break the code or you 
want to give up (you coward), you can push the space bar on the 
keyboard to release cyanide gas into the ship which will stop the 
alien and the program, allowing you to try again or stop. 

When you enter numbers to break the code. Mother, the ship's 
computer, will respond in any combination of the following three 
ways: (1) no response, which means that none of the numbers in 
your guess is in the code; (2) "!" symbol, which means that one 
of your numbers is in the code, but in the wrong place; (3) a "*" 
symbol, which means that one of your numbers is in the code and 
in the right place. 


Comments: For all of you analytical geniuses, prescient 
persons, mind-readers and byte-bogglers out there—we know you'll 
never go over 10 attempts to break the code, but just for fun, 
you should enter some wrong guesses to see the comments that are 
waiting for you every once in a while. We could say something 
about pushing ESCAPE to escape the ALIEN via cyanide gas (a very 
final escape), but "wisdom" dictates otherwise—and for those of 
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you out there asking where we got some wisdom to dictate to us, 
we offer this answer: you can call Dial-A-Wisdom at 937-3862 for 
the latest in up-to-the-minute wisdom. And now you ask, "Where, 
oh wise person, did the word "w-i-s-d-o-m" come from?" Well, our 
On-The-Spot Roving (and sometimes raving) Reporter turns in this 
scintillatingly scented story (that is to say, we think it may be 
a little fishy, but in all fairness, we'll let you be the judge). 


Story : Origin of Wisdom 

Pateline : Chicago, February 31, 1967 

(Funny — I thought a dateline was something like, "Hey, Baby, 
this is Mr. Available. Whatcha doin' tonight?" -- but, on with 
the story). There was a certain wise man from Europe that recent 
immigrants would go to for information about American customs, 
traditions, government red tape, etc. As many "Schmexperts"* 
are, this schmexpert was very vain and had an over-blown ego. 
These poor, struggling immigrants soon realized that to get along 
with Mr. Schmexpert, they needed to feed his ego, so they would 
say things like: "We're dumb and you're so smart. Please help 
us." But with their accents and rough English, it came out: 
"We's dumb and you's smart, etc." This routine worked so well, 
they called it their "we's dumb" routine. 

As time passed, it came to be known that when you wanted some 
"wisdom", you were after some knowledge. So wisdom became 
equated with wise use of knowledge. In honor of this tradition, 
the Dial-A-Wisdom phone number 937-3862 spells "We's Dumb". And 
the group that answers, calls themselves "wisdoms". And we think 
that it is just fine for them to call themselves "We's dumbs", 
don't you? 

♦Robert Ringer, "Looking Out for Number One" 
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DYNAMITE 


Description: Welcome to the wonderful world of Dynamite. Each 
of you 1 ight a stick and pretend you're the Statue of Liberty. 
Now douse your fuse and read on. 

There are 15 sticks of dynamite in an abandoned mine. All of 
them are unlit except the last one. The ghost of your dead 
partner has lit the last stick of dynamite and now he wants to 
play a little game with you. 


Instructions: You and your dead partner take turns taking sticks 
of dynamite from the pile, up to three sticks in a turn. If you 
take the last stick, you'll be blown up and have to take your 
partner's place in the mine—forever. 


Comments: If you lose and get stuck in the mine, the really bad 
news is that Howard Cosell spends every Wednesday and Thursday in 
the mine with you. We realize the this is unfair to you, but 
then again, when we think of you—maybe it's unfair to Howard! 
Well, you two can discuss that every Wednesday and Thursday. 
Good luck with the ghost of your dead partner. By the way, why 
did you shoot him? Oh, you say he used to listen to Howard 
Cosell on the radio and television all the time? And the jury 
let you off because it was justifiable homicide? How true, how 
true. 
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MUSIC 


Description : Music contains various sound effects that you can 
use in your own programs. 


Instructions : Select Music from the Master Menu. Follow the 
instructions as shown. You may want to review the listings of 
Atari Safari to see how the sounds are used in the programs. 


PACIFIER 


Description: Pacifier is a continuous random graphics and sound 
generator. 


Instructions : Select Pacifier from the Master Menu. Press space 
for a new pattern. Press any letter to return to the Master 
Menu. 


Comments : Uncle Howard watched this for two hours last New 
Year's Eve before asking where Guy Lombardo was. 
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PLOT 


Description: Plot will plot various math equations, quickly. 


Instructions: For a quick demo, simply answer "Y" to "Is this 
the function you want (Y/N)?". Then press RETURN in response to 
the other questions. To change equations, answer "N" to "Is this 
the function you want (Y/N)?" Then enter your function by typing 
1000 and the function that you want to use. Do not use variables 
beginning with Q. Press RETURN after typing 1000 and the 
function. Then type RUN and press RETURN. 


Comments: You have the option of an X and/or Y axis. You also 
have the option specifying the tics (hash marks, or whatever) on 
the axes and what units they represent. 


TIC TAC TOE 

Description: Tic Tac Toe is Tic Tac Toe. The 
screen layout is shown below. 

1 2 3 

4 5 6 

7 8 9 

Bet you can't beat it more than once each time! 
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SHAPEBUILDER 


Description ; Shapebuilder is not an exercise program, but it 
will allow you to use your joystick to design your own graphics. 


Instruction: To use the Shapebuilder program, select it from the 
Master Menu and follow the screen prompts until a dot appears on 
the screen which may be moved with your joystick to any location 
on the screen. When the dot is in location where you would like 
to begin your picture, depress the red button and use your 
joystick to draw the picture. When your graphic design is 
complete, simply follow the screen prompts to save your picture 
for future viewing. If you are using tape, you will not be able 
to store your pictures, but you can still draw some fantastic 
shapes. 

If you wish to save more than one picture at a time, you may use 
the following procedure: 

1. Load Shapebuilder Program. 

2. Press "SYSTEM RESET". 

3. Type: OPEN #2,8,0,"D:[name of your picture (8)]" 

Press RETURN 
CLOSE #2 
Press RETURN 

4010 A$="Dl:[name of picture]" 

RUN 

Press RETURN 

Comments : To view a graphic design which has been saved under a 
new name, you should press "SYSTEM RESET", type 4010 A$="Dl:[name 
of picture]", press RETURN, and type RUN and press RETURN. See 
the program listing for additional file numbers that may be used. 
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CHECKBOOK 


Description : Checkbook will allow you to keep track of your 
checkbook transactions, including: 

1. CHECK NUMBER. 

2. DATE. 

3. AMOUNT OF CHECK. 

4. PARTY PAID. 

5. ITEM PAID FOR. 

6. WHETHER THE EXPENSE IS TAX DEDUCTIBLE. 

7. CHECKING ACCOUNT DEPOSITS. 

8. OTHER ACCOUNT ADJUSTMENTS (service charges, etc.). 

Instructions : To use the Checkbook program with a disk-based 
system, simply select it from the Master Menu. You may then use 
the screen prompts to use the particular function you wish to 
work with. To use Checkbook with cassette: 

1. Copy the program onto another tape. 

2. Load the program and follow the prompts. To end, rewind the 
tape recorder, set the recorder for recording, and type three 
lines as the screen directs (push RETURN twice after "CSAVE".) 

3. The last check number and balance are now stored in lines 90 
and 100 of the program. 

Comments: While the Checkbook program will keep track of your 
checking account transactions, it will not earn the money for 
you. You will have to do that yourself. But it will keep track 
of what you make and spend. 
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00 GROIMICS 0 
95 TRW 49 


100 ? 

” 

MASTER 1-El*' ’ 

110 7 

" 0. 

DOTE" 

12(3 7 

"B. 

UIIT coieersioh" 

130 7 

"C- 

FIMOHCIAL CALCULATOR' 

I40 7 

"0. 

CEII0LIT10H" 

isn ? 

"E 

IWTH" 

160 7 

"F 

THINK" 

170 ? 

"G 

ILUITAIH" 

ISO ? 

”H 

• FLOCK HUE CHOSE" 

190 7 

”1 

LEIMM3" 

26*3 ? 

"J 

LUMA C,T,OR L" 

210 ? 

”K. 

fLIEM" 

220 s 

"L 

TfiMOMlTE" 

23*3 ? 

"II 

IIJSIC UTILITY" 

240 < 

"II 

FTC IF IFF:" 

25*3 ? 

"0. 

FLOT" 

260 7 

»P 

TIC TOC TOE" 

2+0 ? 

"0 

SHOFE BUILDER" 

280 7 

"F 

CHECKBOOK" 


300 i " IIPIJT THE LETTER OF VOLE CHOICE. 
310 GET *1,0 

320 IF 0(65 OR O>90 TIED 310 

330 IF 0)62 «l' 0(91 TIED GRWHICS O ElD 

340 Ot=CHRKO> GOSUB GOOO 
333 IF 0T="0" Tltll Rill "D DOTE” 

360 IF Pf="6" THEM Fill "0 HUTS" 

370 IF OR="C" TIED RT»I "0 : MORTGAGE" 

390 IF ol="C'" TIED RUI "OTOIOLITI " 

3913 IF OR="E" THEM FIJI "0 TKtTH" 

40i3 IF 0l=”F" ItEII REII "O-THIIK” 

410 IF OT="G" MEM Rill "0 IIXIITOIM" 

4213 IF MEM Fill "D ELOCK" 

430 IF 0R=“I" THEM Ft* I ”0 1.El ML' 

440 IF 0$=“J" MEM Rill "D III Ft" 

450 IF OR="K" THEM Fill "0 OLIEM" 

460 IF M- "L" MEM RUM "D CMMtlTE" 

470 IF OJ="H" MEM RUM "BTIJSIC" 

480 IF 0*="ll“ THEM Fill "0 FfiCIFIER" 

490 IF 0*="0" THEM Rill "0 FLuT" 

500 IF Ot="P" THEM RUI "D TIC" 

510 IF H*="Q“ THEM RUI "CM SHORE" 

520 IF Ot=”R" MEM RUI "0 > CHECK IIIG" 

2000 REM — IIITRO TO MEIIJ— 

2010 OTOR1=4000 = SOT (El =4100 C0LCULOTE=43 
00: (HI 11(1=4500 ERASE=50O0 08=550(3 
2020 LEG=0: RR=56O0 11=5700 
3010 TRW 3112 
3015 2=0 

3020 GRAF-HICS 3 = ? ? 1 '? ■' "RUSH SPftC 
E TO STOP D1SFLAY." 

3O30 SET COLOR 0,10,5‘SETCOLOR 1,3,6 EETC 
OLUR 2,0,3 SETCOLOR 4,12,2 


3040 COSUEl OT(*l 

3000 GOSUEl SWhRI 

3060 2=2+1 

3080 GOSUEl (Him 

3090 FOR H=1 TO IOIEXT H 

3110 IF FEEK(264 )=255 MEM 3060 

3115 IK FEEK< 764)0255 MEM 90 

3120 OREM 12,4,0,"O OTWM SOF" 

3130 I1E01 *2,BIG'GR0PH1CS BIG 

3140 SETCOLOR 0,12,6 SETCCtOR 1.3,8 

3I50 FOR V=0 TO 19 

3160 FOR X=0 TO 39 

3170 11 TOT *2.CCER 

31 £8 COI-0R CCER FLuT X,Y 

3190 I EXT X 

3200 IEXT V 

3210 CLOSE *2 

3230 IF PEEK( 764 K>255 MEM 3240 
3240 GROI MICS 3 Fttl -STRIFE- 
3245 ? 'TRESS SF'fiCt TO STOP CHE410Y." 
3260 FOR 6=0 TO 15 
3270 FOR C=0 TO 15 

3275 IF 0=3 MEM 3330 

3280 SETCOLOR 0,C.,B 

3295 IF PEEKC 764>0255 MEM 90 

33O0 rot. OR c 

3310 YY=8 • GOSUB 4020 

3315 COLOR C+2 

3320 YY=I? GOSUB 412(3 

3375 COLOR' C+3 

3326 F10T 0,10 CROI'ITO 39,10 

3330 IEXT C TEXT B 

3340 GOTO 2000 

400*3 ITEM — OTWI — 

4010 COLOR: 2 YY=8 
4020 XX=4-r,0SLE 00 
403O REM -T— 

4OI0 HOT 11.2 DFAMTC 15,2 
4(350 HOT 13-3 DPOIITO 13,B 
4O60 XX=I7 GOSUB (tO 
4070 XX=24 G03IJE RR 
4O30 :-5!=30 GOSI-EI II 
4O90 RETURM 
4100 REM —SAFARI— 

4110 COLOR I■YY=19 
4120 HOT 2.19 ORAIITO 6.19 
4130 DRAHTO 6,IBDFYlHTO 2,16 
4140 TRflHTO 2,13 • ORAIITO 6,13 
4150 XX=B GOSUB TiO 
4160 REM — F— 

1170 PLOT 15,19 DRAHTO 15,13 

4180 DROHTO 18.13 FLOT 16,17 

4190 DR WHO 17,17 

4200 XX=20 GOSIE 00 

4210 XX=27 : G05W RR 

4220 XX=33^GOSUB II 

4230 RETURII 

45t;«3 REM —miltlOL— 

4510 COLOR 2 


7 5th 


l 


MpmvtJ c ' 
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4520 X=Z 
4538 TRAP 3120 
4540 IF X<0 THEM 4560 
4550 PLOT X,18 
4560 X=2-l 

4580 IF X<0 TtCN 4592 
4590 FLOT X, 18 : 0RAWT0 X,15 

4592 X=Z-2 

4593 IF X<0 THEN 4635 

4594 COLOR 0 FLOT X,10 
4596 DRftWTO X,I3 

4600 FLOT X, 16 DRftWTO X,19 
4635 REH —LEGS— 

4640 IF LEG=0 THEN COLOR 3 
4650 IF L£G=1 THEN COLOR 2 
4652 X=Z 

4655 IF X<0 THD) 4678 
4660 FLOT X/ 15DRAWT0 X,18 
4670 X=Z-7 

4685 IF X<0 THEN 4780 
4690 FLOT X,16L)RAWT0 X,i9 
4700 IF LEG=0 THEN COLOR 2 
4710 IF LEG=1 THEN COLOR 3 
4720 LEG= NOT LEG 
4730 X=Z-1 

4745 IF X<0 THEN 4768 
4750 FLOT X/ IGORftWTO X,19 
4768 X=Z-6 

4775 IF X<0 THEN 4798 

4780 FLOT X, 16 ORHWTO X,18 

4790 X=Z-8 

4795 COLOR 0 

4800 IF X<0 TFEH 4820 

4810 PLOT X, 14 DRftWTO X,19 

4820 X=Z-2 

4830 IF X<0 TFEN 4850 
4848 PLOT X, 16 : 0RftWT0 X,19 
4850 COLOR 2 
4860 RETURN 
5000 REtl —ERftSE— 

5090 RETURN 


CCrwi LCM (Vj— 

5510 PLOT XX,YY : DRAWTO XX,YY-4 
5520 DRftWTO XX+2,YY-€ ; DRftWTO XX+3.YY-6 
5530 DRftWTO >«+5,YY-4’DRftWTO XX+5,YY 
5540 PLOT XX+l.YY-2 DRftWTO XX+5.YY-2 
5558 RETURN 
5600 REM —RR— 

5610 PLOT XX,YY : DRftWTO XX,YY-6 
5620 DRftWTO XX+4,YY-€ = DRftWTO XX+4,YY-3 
5630 DRftWTO XX+l/YY-3 DRftWTO XX+4,YY 
5640 FLOT XX+3,YY DRftWTO XX+2-YY-1 
5650 RETURN 
5700 REM —II— 

5710 FLOT XX,YY ! DRAWTO XX+4,YY 
5720 PLOT XX.YY-6 DRftWTO XX+4.YY-6 
5730 PLOT XX+2.YY’DRftWTO XX+2/YY-5 
5740 RETURN 

6930 REM —COPYRIGHT INFO- 
6010 GRAPHICS 2 ? #6 : ? *6 ? *6 
6020 ? 16;" COPYRIGHT, COS CORF" 

6030 ? #6 : ? 16;" 1980 ALL RIGHTS" 
6040 ? *6;" RESERUEO" 

6050 FOR W=1 TO 100-NEXT W 
6060 RETURN 
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1550 OPEN 11-4,0, “K “ 

1560 01(1 MEK10) GOTO 1 
1570 WEt=“$ATUKlAY“ GOT 
1580 PE$=“SUOAY“ GOTO 
1590 W£t=“tlut DAY" 'GOTO 2388 
1600 t£t=“TUESQAV" GOTO 2380 
1610 WE»=“WEC»ESOhY"'COTO 238U 
1620 WE$=“THURSDAY" GOTO 2380 
1630 l'Et-“FRIClHY" GOlU 2380 
1700 FOR K=8 TO 255 
1710 80UN0 0,255-K,10,6 
1730 SOOND 1,X,10,8 
1740 NEXT X 
1750 SOUND 0,0,6,0 
1760 SOUND 1,0,0,0 
1790 Did GK5) 

1800 DIO Hi'. 10) 

1810 Din I1SK30) 

1820 GRAPHICS 0 
1830 PRINT 'PRINT 

1840 Y ■ THIS PROGRAM CALCULATES" 
1850 Y “ THE DAY OF THE WEEK OR" 

I860 Y “ NUMBER OF DAYS BETWEEN" 

1870 Y “ OATES AFTER 1562 h.D " 

I860 PRINT 
1890 PRINT 

19O0 PRINT “ 1 DAYS BETWEEN DATES" 

1910 PRINT PRINT 

1920 PRINT " 2. CALENDAR" 

1930 PRINT -PRINT 

1940 PRINT " 3. EXIT TO MASTER MENU 

1950 ? ■ ">. 

I960 PRINT “ENTER OPTION NUMBER' ", 

1980 GET #1,A'1F A<49 OR H>51 THEN 1988 
1990 hI=CHR1(A) N=0AUA$) 

20136) UN H GOTO 2010,2260,2420 
2O10 REM —DAYS BETWEEN DATES— 

2029 GRAPHICS 0 

20.30 PRINT PRINT PRINT 

2040 PRINT " 1 DAYS BETWEEN DATES" 

2055 PRINT PRINT "SAMPLE DATE = 3-24,19 

49" PRINT 

2078 MSt="ENTER FIRST DATE "'GOSUB 245 
0 

20:30 GRAPHICS 0 

2090 PRINT PRINT PRINT 

2100 PRINT “FIRST DATE' ";I10,DA,YR 

2110 PRINT 'PRINT PRINT 

2120 IF I10<3 TICN GOSUB 3000 

2130 IF MO>2 TIEN GOSUB 3500 

2140 D1=F 

2150 t1St=“EHTER SECOND DATE "GOSUB 24 
50 


2160 IP tKX3 THEM GOSUB 3000 
2170 IP 110)2 THEM GOSUB 3500 
2180 02=F'PRINT 

22>30 PRINT "SEC0U3 DATE' ";MO,OA,YR 
2210 PRINT 

2220 PRINT "(USER OF DAYS BETWEEN OATES 
' ";ABS<U2-01> 

2230 PUR X=1 TO S PRINT IEXT X 
2240 PRINT "PUSH RETURN TO CONTINUE" 

2250 lNPtll Gt GOTO 1829 

2260 REM — COIFUTE DAY OF WEEK— 

2270 GRAFHICS 0 PRINT PRINT 
2268 PR 1 NT " 2. CALEt IOAR" PR I NT 

230O ? '? "EXAMPLE' (12,31,1980)" 

2305 MS»=“EM1ER—MONTH,DAY, YEAR " 

2310 GOSUE: 2450 

2328 IP MCK3 THEN GOSUB 3000 

2330 IF M0)2 THEM GOSUB 3560 

2340 GRAPHICS S PRINT PRINT 

2350 PRINT PRINT PRINT "DATE IS M»,D 

A, YR 

2360 0N=7*( P/7- INK F/7) H1 

2370 ON DPI GOTO 1570,1580,1590,1600.1610 

, 1620,16363 

2389 PRINT PRINT PRINT PRINT "DAY IS 
“; PET 

2398 PRINT PRINT PRINT "F1>,H RETURN TO 
GO ON"; 'INPUT At 
2400 GOTO 1820 
2420 TRAP 2440 
2430 RUN “D'tEHJ" 

2440 GRAPHICS 0 END 

2450 TRAP 2459'? =? '? MSI; INPUT 110,Um, 
YR 

2468 IF MO;i OR 113)12 THEN GRAPHICS 0-: 

' ? '? "MONTH CU1 if RANGE "'? "EXAMPLE 
12,31,1980“ GOTO 2458 
2470 IP UAU UK DA>31 THEM GRAPHICS 0 > 
•-? '? "DAY IS OUT UP RANGE " ' ? “EXAMPLE 
12,31, 1980" GOlU 2450 
2480 IF YR<100 THEN GRAPHICS 8 • ? •? * 

ENTER PULL YEAR."'? "EXAUC'I P 12,31,1988” 
'GOTO 245« 

2490 IP YR<1S02 THEM GRAPHICS 0 PRIMP P 
PINT " IT MUST RE AFTER 1582" 'PRINT GO 
TO 2450 
25O0 RETURN 

3000 REM —FUNCTION 1 — 

3010 F=365TYR+DA+311( 113-1 )+IIIT((YR-l > 4) 
-IHT(0.75t( IKT(((YR-1 >/IPO HI )>> 

3020 RETURN 

3500 PEN —FUNCTION 2 — 

3510 F=365*YR+0A*3mM0-l >-1HTc 0.4M*J+2 
3HIN1 (YR.'4 HIHT(0.75*' INI6 VPV108HI)) 
3520 RETURN 
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10 
90 
100 
110 

120 

130 GOTO 156 

140 PRINT 'PRINT "NO, TYPE 1,2,3,4,OR 5" 
150 PRINT : PRINT "WHICH IIJttEER WOULD YOU 


LIKE? " 

160 FRINT 

170 PRINT FRINT 0 

1 

LENGTH" 

180 PRINT FRINT " 

2. 

HEIGHT“ 

190 PRINT PRINT " 

3. 

UOLUME" 

200 PRINT PRINT " 

4. 

TEMPERATURE" 

210 FRINT PRINT " 

5. 

EXIT TO MASTER 

MENU" 

220 GET 11,A IF A<49 OR A>53 THEN 220 


230 M=CHRKAVA=UAL<«> 

25*3 ON ft GOTO 260,800,1300,1600,2300 
260 GRAPHICS 0 PRINT PRINT PRINT 
270 PRINT " LENGTH - COMJERT UNITS FROM 

280 PRINT : PRINT ” 1. INCHES” 


290 PRINT “ 

2. 

FEET" 

300 FRINT ■ 

3. 

YARDS" 

310 PRINT “ 

4. 

MILES" 

320 PRINT " 

5. 

M1LL1I1E1ERS" 

330 PRINT " 

6. 

CENT IMETERS" 

340 FRINT " 

7. 

METERS" 

350 PRINT " 

8 . 

KILOMETERS" 

360 PRINT " 

9 

RETURN TO MENU 1 


370 GET Hl,ft : IF PK49 OR ft>57 THEN 370 
380 At=CHRf(A> 

390 FfUhU. HJ) 

400 REM —COH.tRT ENERYTH1NG TO MEIERS— 


OPEN 

Dill A4t5> JUMlT 

i GRHFHICS 0 /_CoM\/eTe8l0|0 


i PRINT 
i PRINT 


PRINT- 


UNIT COPP.ERSION" 


405 TRAP 400 

410 UN ft GOTO 420,440,460,480,500,520,54 
0,550,100 

420 PRINT “HUN MANY INCHES ", 

430 INPUT AG=A/39.37 GGTO 570 
440 PRINT “HOW MANY FEET 
450 INPUT 6=100.3046 GOTO 570 
460 FRINT “HOW MANY YARDS ", 

470 INPUT C G=C-'l 094 GOTO 570 
480 FRINT “HOW MANY MILES 
490 INFUT D : 0=041609 GOTO 570 
500 PRINT "HOW MANY MILLIMETERS ", 

510 INPUT E ; G=E/1000 GOTO 570 
520 PRINT “HOW MANY CENTIMETERS ", 

530 INPUT F G=F/|00 GO TO 570 

540 FRINT “HOW MANY METERS ", INPUT G^GO 

TO 570 

550 FRINT "HOW MANY KILOMETERS “; 

560 INPUT H : G=H41UUU ; G0T0 570 

570 REM —PRINT LENGTH EQUIOALENCE TABLE 


610 PRINT “ YARDS =“;G41.094 

620 PRINT “ MILES =“;G'1609 

630 PRINT " I1ILLII1ETERS=",G410O0 
640 PRINT * CENT I l£TERS=“, G4100 

650 PRINT “ METERS =“,C 

660 PRINT “ KIL0IE1ERS =“,0/1000 

670 IF G<0 THEN G0SU8 2400 
680 PRINT PRINT “DO YOU WANT ANOTHER LE 
NOTH?" 

690 PRINT FRUIT " Y OR II “ 

J■INPUT A t 

700 IF At=“Y" THEN 260 
710 GOTO 10U 

800 REM —WEIGHT CONVERSIONS— 

610 GRAPHICS 0 PRINT PRINT 

820 PRINT “ HEIGHT - CONCERT PRU1 “ 

830 PRINT 
835 PRINT 
840 PRINT 
845 FRINT 
850 FRINT 
855 PRINT 
860 PRINT 
865 PRINT 
870 PRINT 
875 PRINT 
880 PRINT 
885 PRINT 
890 PRINT 
895 PRINT 
960 PR INI 
910 PRINT 


: FRINT " 1. OUNCES" 

" 2. FOUNDS" 

" 3 TONS" 

" 4 MILLIGRAMS" 

" 5. GRAMS" 

“ 6. KILOGRAMS" 

" 7. METRIC TOPIS" 


8. RETURN TO MENU" 


■PRINT ” "; 

920 GET #1,A IP A<49 OR A>56 THEN 920 
93t3 A*=CHR»(AVA=VAL(A4> 

940 REI1 —COHJERT EVERYTHING TO KILOGRAM 
S— 

945 TRAP 940 

950 ON A GOTO 960,980,1000,1020,1040,106 
0,1080,100 

960 FRINT "HUN MANY OUNCES"! 

970 INPUT A P=A-'35 27 GOTO 1100 
980 PRINT "HOW MANY FOUNDS"; 

990 INPUT B P=E/2.205 GOTO 11P0 
1000 PRINT "HOW MANY TONS"; 

1010 INPUT C P=CE907.2 GOTO 1100 
1020 PRINT "HOM MANY MILLIGRAMS"; 

1030 INPUT 0• F =0/1000300 GOTO 1100 
1040 PRINT "P04 MANY GRAMS"; 

1050 INPUT E P=E/1000 GOTO 1100 
I960 PRINT "HOW MANY KILOGRAMS"; 

1070 INPUT F GOTO 1100 

1080 PRINT "HOW MANY IETRIC TONS"; 

1090 INPUT G P=GT2000 GOTO 1100 

1100 REM —FRINT WEIGHT EQUIVALENCE TA8L 

ES— 

me GRAPHICS 0 PRINT PRltll PRINT 
1120 PRINT " OUNCES =";Pt35.27 


580 GRAPHICS 0 : PRINT ; PRINT :PRINT 
590 PRINT “ INCHES =“,0439.37 

600 PRINT “ FEET =";C/U.3e48 


1130 FRINT " KUOS =";P*2.205 
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1140 PRINT " 

TUTS ~";F/907.2 

1150 FRIHT " 

MILLIGRAMS =";M10C«U 

00 


1160 PRINT " 

GRHI1S ="jF*1009 

1170 FRIHT " 

KILOGRAMS =";F 

lit* FRIHT ” 

METRIC TOHS-";F/2000 


1190 IF F<0 THEN GOSUB 2400 

1200 PR INI :PR1NT TP: HIT " DO YOU lift 

NT WITHER WEIGHT ?' 

1210 P'RIIIT PRINT “ Y OR II”; 

1220 INPUT ftp IF AI="Y" THEN GOTO 800 
1230 GOTO 100 

1300 REN —UOLUE CONUERSIOHS— 

1310 GRAPHICS 0,PRINT PRINT 

1320 PRINT “ UULUME - CUPWER1 FROM" 


1330 PRIHI 

PRINT 

" 

1 

GALLONS" 

1340 PRIHI 

PRINT 


2 . 

QUARTS" 

1350 PRINT 

■PRINT 

" 

3. 

BUSHELS" 

1360 PRIHI 

: PRINT 


4 

CUBIC FEE! 

1370 PRINT 
ES" 

,PRIHI 

" 

5. 

CUBIC INCH 

1380 PRINT 

PRINT 

" 

6. 

LITERS" 

1390 PRINI 

FRIHT 

M 

, . 

CUBIC CENT 

IMETERS" 
1400 PRINT 

■FRIHT 

M 

8. 

EXIT TO HE 


HU" 

1410 GET I1,A : 1F ft<49 OR ft>56 THEN 1410 
1420 ftP=CHRP( ft) - ft=UftL( ftp) 

1450 REN --COHUERT EVERYTHING TO GALICHS 

1455 TRAP 1450 

1460 OH ft GOTO 1470,1430,1510/1530,1550, 
1570,1530,100 

M7M PRINT “HOW MfttTY GALLONS 
1400 INPUT A GOTO 1610 
1490 PR I 111 "HUT IWIY QUART S ", 

15,00 INPUT tl'ft=b '4 GOTO 1610 
1510 PRINT “HUT MANY BUSHELS ", 

1520 INPUT L■ FfLY'S. 303 ; GOTO 1610 
1530 PRINT “HOW MANY CUBIC PtEl 
1540 INPUT 0 : (iFUf7.481 -GUlU 161U 
1550 PR IN I "HOW IlftlTY CUBIC INCHES "i 
1560 INP'UI ERFE/231 GUI0 161U 
1570 PRIHI “HUT MANY LITERS ", 

1560 INPUT P PFp.-i iVj-UJlu 1610 
1590 PR ill I “HUT MANY CUBIC CENTIMETERS " 


l6U0 PRINT PRINT " LITERS 
",H*3.785 

16y0 PRINT PRINT * CUBIC CENT1IETER$= 
“ * P+S3785 

lt,95 IP n',0 THEN GOSU0 24UU 

1700 PRINT PRINT * 00 YOU WANT ftNUTH 

ER UULUMEY" 

1710 PRINT “ Y Uk N ", 

1720 INP'UI Hi UP AP=“Y“ I HEN GUlU 1300 
1730 GUlU 100 

1000 kb IT — fETE'EKNTUkt CUNUERS lulls— 

1010 GRAPHICS 0 PRIHI PRINT PRINT 
lo20 PRINT “ TEMPERATURE - CUHUERT PKUll 


1025 PRINT PRINT PRINT 

1030 pKiiu print ■ ' l. parenheit" 

1040 PRINT PRINT “ 2. CENT 1GRADE 


1850 FR1NT ; PRINT “ 3. KELUIII" 

1060 ? :? “ 4. EXIT TO MENU" 

1878 GET #1,A‘1F A<49 OR A>52 THEN 1870 
1000 Hf=CHRt( A ) : A=UAL( AT) 

1890 IF A<1 OR ft>4 THEN GOTO 1800 
1900 REI1 —CONVERT EVERYTHING TO CENT1GR 
ADE— 

1905 TRAP 1900 

1910 UN ft GOTO 1920,1940,I960,100 
1920 PRINT “HUT MftHY DECREES PARENHEIT “ 


1930 INPUT ft ; B=<ft-32 ><5/9 : GOTO 1980 
1940 PRINT “HUT MANY DEGREES CENTIGRADE" 


1950 INPUT 6 GOTO 1980 
I960 PRINT “HUT MANY DEGREES KELUIH", 
1970 INPUT C,0=C-2/3 GUlU 1980 
1980 REIT —PRINT TEMPERATURE EQUIVALENCE 
TABLES— 

1990 GRAPHICS 0,PRINT PRIHI PRINT Pkl 
NT 

2000 PRINT PRINT “ PARENHEIT = ",8 
<9/5+32 

2010 PRINT PRINT * CENT 1GRADE = "it 


2020 PRINT PRINT “ KELUIH = ",E 

+2/3 

2030 IP B<-2?3 THEN GOSUB 2500 

2040 PRINT =PRINT =PRINT “DO YOU WANT AN 

OTHER TEMPERATURE?" 

2050 PRINT PRINT “ Y OR H“, 


16U0 INPUT C a=G-'3?65 GUIU 1610 

1610 REM -PRINT VOLUME EQUIVALENCE TftBL 

Es— 


1620 GRAPHICS 0,PRINT 

PRINT 


1630 PRINT : PRINT “ 

" / A 

GALLONS 

= 

1640 PRINT ,PRINT “ 

" i T+44 

QUARTS 

= 

1650 PRINT PRINT " 
“»ft/9.309 

BUSHELS 

= 

1660 PRINT PRINT * 
"JR/?. 481 

CUBIC FEET 

= 

1670 PRINT PRINT “ 

", PK 23 I 

CUBIC INCHES 

= 


2060 INPUT AMP' At="Y" THEN GOTO 1300 
2070 GOTO 100 
23u0 TRAP' 2320 
2310 RUN “0 ; MENU“ 

2320 GRAPHICS 0 END 

240O PRIHI PRINT PRINT "HOLD YOUR HORS 
ES—HU MINUSES HLLUCO" 

2410 RETURN 

25U0 PRINT PRINT “ !! NTAIT, YOU CAN'T 

UU THAT!!!" 

2510 PRINT "2ER0 DEGREES KELUIH = AElSULU 
IE 8011011" 

2520 RETURN 
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212 trap 230 4 F ■ +-’ ahc l c fit-cut /Ftdk 7 

213 Dili At(2)!TTt< i?),tit' 6) ■-" 

214 mil FU( 10) 

215 mil |lt<6> 

216 GOTO 270 

217 i 7 "PRESS RETURN FOR FROGPAN IttlJ 


21G INPUT M IF AT=* 

At" THEN 

230 

230 GRAPHICS O FRUIT 

PR II11 


235 TRAP 1471 

240 FRUIT FRUIT FRUIT " 

CON 

HUE " 

250 FRUIT 

260 FRUIT FRUIT " 

1 

HITT REST RA 

TE" 

270 FRUIT PRINT " 

2 

RAVI fill" 

280 FRUIT FRUIT " 

3. 

MINCER OF P 

OYUFNIS" 

290 FRUIT FRUIT " 

4 

Allot 111 OF L 

Otll" 

31313 r ' ? " 5. 

RETUF.tl 

TO HASIFF IF 


HU" 

310 ? > ■■? 

320 PRINT "ENTER NUIWR, FLRnSF 
360 INPUT AA=UIT(A> 

370 IF Oil OP 0)5 I HEN 230 
7.:-0 IF A=5 IHFII GRAFNICS O 'TRAP 1700 PUN 
"D HtHIJ" 

■inn oil 0 GOTO 410,700,900, 1030 
410 GRAPHICS 0 PR 1MT FT I 111 FRUIT " 
CONFINE INTEREST ROTE” 

420 ? 

450 C.OiHP 1300 
460 ? 

470 GOSUB 1430 
480 N-Ittlll 
490 7 

50i3 GOSUB 1260 
510 ? 

520 GOSUB 1320 
530 GOSUB 560 
540 ? 7 

550 F=ltl00O FRUIT "PERCENTAGE ROTE = *; 
GOSUB 1480 : FRUIT F 

560 F = 141200 FRUIT "AlHLM FERCEHIAGE FA 

TE = GOSUB 1460 FR1III F 

570 GOTO 217 

5E0 UT=PU/FI11 

590 H1/U1-UT4P2 

600 UI=UI4I 

61U U2=t 1 + 1 )'N 

620 U3-1-02 

630 U4=UI-03 

640 U5=t(t<IK I /1 +1 >+1 >402 >-1 VI) 

650 U6=U4 U5 
660 l=l+Ut 


6, u U?-nFJ5< Ut) 

6t:u IF IE 06',U7 IKM 600 
690 RETURN 

700 GRoRMlCS O FRUIT FRIIN 
710 FRUIT "CUUUIF PAYHEIIT" 

720 ? 

730 GUSUB ) 2+30 
740 FRIIN 
750 GOSUB 1260 
760 PR 1111 
770 GUSUB HSU 
760 PR II11 
790 GUSUB I38U 
BOtj FRUIT RR'Illf 
BIO 11=111111 
B2'U 1=1/1200 
650 11 = 1 + 1 

640 Fill =FUU |/( III- t|>) 

650 FRIIN "FAVHLHI Hi MU I 1" ; I =F I11 GIJS 
06 146U RRlIlt I 

652 RR 111 I "IIUIII ICIU4IY PAIN F"; 1=1 

III ill GOSUB 1460 I RIII1 3 

654 FRIIN "HUJNT UF HMERLsI Rnll.i 

F=F-FU GOSUB 146V FRIIN F 

660 GUIO 217 

670 F=I41UU V "L«3 YUU NLllU"; GU'-OB I4B0 
? IV / ID"; 

66U GET 11 ,H ll»'=UIRKA) 

665 It 111='ll" IHFII 670 

B90 1 = 11100 RETURN 

91313 GROT MILS O FRIIN FRUIT 

910 FRIIN " TOII LI IE IIUIIBFR Of PA’tlt 

ENTS" 

920 FRUIT PR Nil FRUIT 
930 GOSUB 129} 

940 PRINT 
933 GUSUB 12+0 
960 PRIHI 
962 GOSUB 1380 
964 FRIIN 
970 GOSUB 1320 
990 l=l/|2H0 

1000 11=-'.' LC*,< I -1+FI3-Till M Oli' ) + )))) 

1010 BRUIT " III ERR OF PAYUFUIS' F=|l 
GUSUB 1480 FRUIT F 
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1020 GOTO 217 

103O GRAPHICS 0 ; PRINT ^F1?IHT 

1040 PRINT * CGMFU1E AMOUNT OK LOAN" 

1050 KR1H1 KRIN1 PRINT PRINT 

1060 GOSUB 1200 

1070 PRINT 

1080 GOSUB 1320 

1090 PRINT 

1100 GOSUB 1388 

1110 PRINT 

1120 GOSUB 1430 

1130 PRINT FRINT PRINT 

1140 N=N*N1 

1150 1=1/1200 

1160 PU=PNT*«l-<l+l>-'-N>/I> 

1165 F=PnT*H PRINT "AIIOUNT ACTUALLY PAID 

: $"i ; GOSUB 1480 PRINT F 

1167 F=F-PV : PRIHT "AfIJUNT OF INTEREST PA 

ID Vi COSUB 1480'PRINT F 

1170 F=PO=PRINT "AMOUNT OF LOAN' **;'G0S 

UB 1488 ; FR1NT F 

1180 GOTO 217 

1190 GOTO 1470 

1200 REM --ENTER INTEREST RATE- 
1210 PRINT "ENTER INTEREST RATE " 

1220 INPUT MF I<0 TPEN GRAPHICS 0'GOTO 
1210 


1472 FUR W=1 TO 200 NEXT M 

1473 GOTO 230 
1480 F=FT100t8.5 
1490 F=INKF) 

1520 F=F/10O 

1525 IF F<0 THEN 1471 
1540 RETURN 
1600 TRAP 1620 
1610 RUN "01 MENU" 

1620 GRAPHICS B'ENO 


1230 IF I<1 TFEN GOSUB 870 
1240 F=I GOSUB 1480 
1250 RETURN 

1260 REM —AMOUNT OF LOAN— 

1260 REM —AMOUNT Of LOAN— 

1270 PRINT ‘ENTER AMOUNT UF LOAN. ‘ 

1280 INPUT FV 

1290 IF P1K0 THEN GRAPHICS 0 GOTO 1270 
1300 F=PV GOSUB 1480 
1310 RETURN 

1320 REM -ENTER AMOUNT OF PAYMENT— 
1330 '( "ENTER AMOUNT OF PAY1ENT " 

1340 INPUT PUT 

1350 IF Pt1T<=0 THEN GRAPHICS 0 GOTO 1330 


1360 GOSUB 1400 
1370 RETURN 

1380 REM -1WUT NUMBER OP PAYMENTS PER 
YEAR- 

13* PRINT "EH1ER NUMBER OF PAYMENTS PER 
YEftt. * 

1460 iHHJT N ; IF N<1 THEM LkHh'HICS 6:GOTO 

.ifU. 

1430 PRINT "ENTER NUWER OF YEARS * 

1440 INPUT HI IF NK0 THEN GOTO 1430 
1460 RETURN 

1470 GOTO 1608 

1471 GRAPHICS 0-? * DOES NOT COMP¬ 

UTE!" 
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1331 DIM AKl) 

1392 OPEN *1,4,0,"Ks" i-US>4oorncVl5 
14lt0 GRAPHICS 0 -S OcRftu Jf 

1410 PRINT PRINT ^ - 

1420 PRINT " DEMOLITION DERBY" 

1430 PRINT PRINT 

1440 PRINT "rEMOLITIOH DERBY IS A PAST-11 
WING" 

1450 PRINT "GATE OF STRATEGY WHERE TWO P 
LAYERS" 

1460 PRINT "TRY TO FORCE EACH OTHER INTO 
THE" 

1420 PRINT "WALL OR INTO A TRAIL "PRINT 

1480 PR I HI "USE JOYSTICKS IN THE LEFT TH 
0 SLOTS" 

1430 PRINT "TO GO UP, RIGHT, LEFT, OR DO 
MM. “ 

1508 PRINT “IT DOES NOT RESPOND TO A U1A 

am." 

1510 FRINT “COMMAND." PRINT 

1521 PRINT "EACH THE YOU DEMOLISH YOUR" 

1522 PRINT "OPPONENT BY FORCING Hill TO C 
RASH," 

1523 PRINT "YOU GET A POINT! (WOW) FIRS 
T" 

1524 PRINT "PLAYER TO 3 POINTS MINS!" 
1526 PRINT -PRINT "PUSH RETURN TO GO ON" 

1530 INPUT At 

1535 GOSUB 3000 

1540 XS=0-YS=0 

1550 GRAPHICS 3+16 COLOR 2 

1555 SETC01.GR 0,3,4 

1560 PLOT 0,0 DRAWTO 39,0 

1520 DRAWTO 39,20 = DRAW 10 0,20 DRAWTO 0,0 

1580 X1=4-Y1=10 

1530 01=1 E1=0 

1600 X2=35-V2=10 

1610 02**1 E 2=0 

1630 COLOR 1 HUT XI,VI 

1650 COLOR 3-HOr X2,Y2 

1660 1101=61 ICK(0)'HO2=611CK( 1) 

1660 IP 1101=14 I HEN D1=0 tl=-l 
1630 IP 1101=11 THEN Dl=-1 E1=0 
1200 IF 1101=13 THEN D1=0 El=l 
1210 IF 1101=? 1HEH 01=1 E1=U 
1220 IP 1102=14 THEN U2=0 E2=-l 
1730 IF 1102=11 THEN D2=-l E2=0 
1240 IF 1102=13 THEN 02=0 E2=l 
1750 IF 1102=? THEN 02=1 E2-0 
1260 PUR W=1 TO 200 61EP WAIT NEXT W 
1790 X1=X1+D1 Y1=Y1+E1 
1600 X2=X2+D2 Y2=Y2+E2 
1810 IF X1<0 OR XI>39 THEN I960 
1620 IF X2<0 OR X2>39 THEN 2040 
1630 IP Y1<0 OR Yl>20 THEN 1980 
1640 IF Y2<0 OR Y2>20 THEM 2040 
1650 LOCATE X1,Y1,B 
1655 IF 600 THEN I860 
1660 lolaIE X2,Y2,C 


1665 IP c\ 4J THEN 1930 
1620 GOI0 1630 
1680 KEI1 —X CRASH— 

1690 LOChIE X2,Y2,D 
1895 IP DO0 I HEN 2100 
1900 COLOR 1 
1910 P'LOl XI,Y1 
1920 YS=Y5+1 GO 10 2140 
1930 REM —Y CRASH— 

1940 LOChIE X1,Y1,E 
1345 IF EO0 I HEN 2100 
1950 COLOR 3 
I960 HOI X2,Y2 
1920 X6=X£+1 GOTO 2140 
1960 REM —X UUERPLUW— 

1990 IF XKO THEN X1=0 
2000 IF XI>33 THEN XI =39 
2010 IE Y1<0 THEN Yl=u 
2020 IF Y1>23 THEN Yl=20 
2030 GOTO 1300 
2040 RE11 — Y atPP LOW- 
2050 IF X2<0 THEN X2=0 
2060 IF >2>33 THEN X2*39 
2070 IF Y2<0 THEN Y2=0 
2080 IF Y2>20 THEN Y2=20 
2+390 GUTO 1350 
21M+3 REM —TIED CRASHES— 

2110 color i nor xi.yi 

2120 XS=.XS+CYS=YS+1 

2135 IF XS=3 AND YS*3 THEN GRAPHICS 2s? 
#t> : ? *6- ? #6;"IT'S A HE" Q3I0 2130 
2140 IF XS=3 THEN GRAPHICS 2 • *6 ? 46? 

#b;" RED FLAYER WINS!!" ailO 2190 
2150 IP YS=3 THEN GRAPHICS 2 •' If.-? 46 ■ 
#bi" BLUE PLAYER WINS!!" GOTO 219+1 
216+1 PUR X=1+J0 TO 20+3 

2162 SOUND 2,206-X,10.12 

2163 SOUND 3,60,10,15 
2165 NEXT X 

2167 SOUND 2,+3,0,0 

2168 SOUND 3,0,0,+3 
2170 GOTO 1550 

219+3 ? *6 ? *6 ? #6;" PLAY AGAIN?" 
2131 SOUND 0,243,10,8-SOUND 1,96,10,8 

2192 FOR M=1 TO 20+3 HEXT W 

2193 ? #6? 46;" Y / N ?" 

2195 Saw 0,0,0,0 = SOUM3 1,0,0,0 GET II, 
A 

2136 At=CHRt( A > 

219? IF At="Y“ THEN 1535 
2'2'20 GRAPHICS 0 
2222 SOCIUD 0,0,0,0 
2224 SOUND 1,0,0,0 
2230 TRAP 2250 
2240 RUN "LT MENU" 

2250 GRAPHICS 0 P3IU 

300+3 GRAPHICS +3■? “ INPUT SPEED. (1= 
SLOW 10 9=FAST) " 

8+310 GET II,A IF A(43 OR A>5? THEN 3010 
3020 A$=CHRt< A ) : WAl I =UAH At > 

303+3 RETURN 
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3,-40 Xl=X+4 : Yl=Y+2 

3/50 Y1=39-Y1 

3760 X1=INKX1) ; Y1=1F1T(Y1) 

3/70 IF Yl>39 THEM 3900 

3780 IF XI >79 THEM 3800 

3/90 IF YKo IHEH 3870 

3800 LuChTE X1,Y1,CLR ; IF CLR=1 THEN 3900 


3olo if llk-3 then 3900 

3830 L-10 

3830 IF Y1<0 IHEH 3850 

3840 RED- 

38bO KE.fi- 

3860 F'LUT Xl/Yl 

38,0 X=X+1 GOTO 3715 

3880 GOTO 4120 

3900 REM -HIT BHRRIER— 

3910 FUR X=0 TO 3 
3920 COLOR X 
3930 F'LUT XI, Y1 
3940 GOSUB 4210 
3950 IIEXT X 

3980 COLOR 0-FLOT XI, Y1 
3970 GOTO 3390 

398U REI1 —MAYBE YES,- MAYBE NO— 

3990 IF Y1 >39 THEM Yl=39 
4000 LOCATE X1,Y1,E 

4010 IF XI >=22 Aft) Xl<=25 THEM C1=A1‘L1= 

22 L2=2'5 

4020 IF XI>=28 Hit) XI<=31 THEM Cl=A2=Ll= 

2S-L2=31 

4WiO IE XI>=34 AHU XK=37 THEM C1*A3=L1= 

84 ; 1.2=37 

4040 IF E< >3 THEM 4120 
4O50 Kbit —YES— 

40r3J LULUK 2 

4tto5 FUK X=1 TO b 

407U FtUI LI ,40-X GkHMIU l.2,40-X 

4U85 L=4 

4«90 GOSUB 4230 

41O0 NEXT X 

4110 UUIU 3390 

4120 KEI1 —MO- 

4130 UJSUB 4190 


4182 GET *l,A:ft*=CHRt(A> 

4184 IF AtO"Y" THEN 4270 

4185 GOTO 3388 
4190 GOTO 4600 
4810 GOTO 4700 
4220 Fill 
4230 GOTO 4880 
4250 Flit 
4260 RETURN 
4270 TRAP 4290 
4280 RUN "0 MENU" 

4290 GRHF'HICS 0 END 
45/0 GOTO 4700 

4bOU kill — RAS6ERRY— 

4610 FOK 2=200 TO 250 SIER 5 

4680 SOUND 0,2,14,8 

4630 FOR N=1 TO 5 1 EXT N 

4640 NEXT 2 

4660 SOUND 0,0,0,6 

4670 RETURN 

4/00 Fin —NOISE— 

4710 FOR 2=1 TO 2 

4/20 FOR 0=0 TO 15 

4230 SOUND 0,100,10,0 

4740 NEXT U 

4750 (EXT 2 

4760 SOUND 0,0,0,0 

4770 RETURN 

48O0 R1T1 -SCALE- 

4810 FOR 2=1 TO 8 

4820 READ H 

48.30 SOUNO 0,11,10,8 

4850 NEXT 2 

4870 SOUTH 0,0,0,0 

4880 RESTORE 

4890 RETURN 


4140 GOTO 3390 
4150 REM 

4160 GRHF'HICS 2-? *67 *67 #6 
4170 ? #6;"FlllflL SCORE = 7 *6;SC 

41ES '? #67 *67 *6; “ FLAY AGAIM? Y-H" 
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5 DATA 122,109,97,92,82,7 
10 Dill AT<10)R=5 
20 GRAPHICS 0 ? :? : ? ■? 
25 TRAP 20 


65,61 

/MArH/ 


30 FR1HT 

50 ? ? : 

60 ? ? " 
70 ? ■? " 
80 ? ? “ 
85 ? :? * 
U" 

90 V 


HATH 
1 ADD" 

SUBTRACT" 

MULTIPLY" 

DIVIDE" 

RETURN TO MASTER I EM 


? "T'rPE STOP AFTER A PROBLEM" 


100 ? "TO RETURN TO MENU" 

110 ? = ? "ENTER YOUR HUBER, PLEASE"; 

120 INPUT AT 

130 IF AT="STOP" THEN 1320 
140 A=VAUAT)A=INT<A> 

150 IF A<1 OR A>5 THEN ? "ENTER HUBER F 

ROM 1 TO 5" : GOTO 120 

160 ON A GOTO 370,580,790,1010,1320 

370 REM — ACO -- 

390 PEN — SET INITIAL. LEUELS — 

400 Ll=10 L2=10 

410 t=0 C1=0 RET1 — SET COUNTER — 

420 A1=INT(RUX 1 )*L1 )=A2*IHT(.RUK 1 ML2) 

421 GRAPHICS 2 

422 POSITION 5,3 ? #6; "AtJOIT ION" 


424 POSITION 5,4 ? #6;"++++++++" 

430 POSITION 5,7 ? #6;A1; 

435 ? *6 ;"+"; 46;a2;;? #6 ;"="; 

440 INPUT AT 

441 IF AT="STOP" THEN 28 
445 A^OALCAT) ? 16; A 
460 IF A=A1+A2 THEN 510 
470 GOSUB 1290 

480 ? 16; ? 16;” NO, 46;A1;=? 46;“ + 
#6;A2; 


490 i #6 ,■'! 46;AHA2 
495 C-0 FOR H-l TO 1000 Ufc'Xl U 
500 GUlU 420 
510 REM 

520 ? lit : ? #6," RIGHT !!!!!!!" 

530 GOSUB 1380 

540 C-C + l 1R C\R THEN 42U 

550 Rtll —U) NEXT LEVEL— 

5c.U Cl-CHI 

5,0 U=LHClSlttL2=Ll C-U GUlU 420 

520 kill — SUBTRACT— 

gUU L 1-10 C2-1U 

8XU U-Ull-U 

b/U M-INKKNA 1 .‘SCI 

t'U A2= 1N K kl LM >:S( h 1+17 >••REM —THIS AUU 
IDS Htc NUMBERS— 
b40 GRAPHICS 2 

642 RUSH lull 5,3-? «6; "SUBTRACTION" 

644 PUSH UJN 5,4 ? 16;"-" 

t,4t P0S1I10M 5,7 ? 46, h 1, 

650 Y 46,“-";;? *6,A2,•? #6,“*“; 

bc. 0 INPUT At 

670 IF Hl=-"SfOP“ THEN 2U 


680 h-OaLihT; ? 46,h 
690 If A=h1-h2 THEN 740 
TOO COSUB 1290 

710 ? #6‘? 16," NO, “;•? 46,h1h? 16;“- 

", : ? #6,h2, 

720 •? 46;"=“;;? *6;A1-A2 
730 C-0‘R0R: H-l TO 1O00 HE. 11 U 
735 LUlu 620 

740 Y #6 ? 46;“ RlcHl !!!!!!!“ 

750 CUSUB 13o0 
71-0 C-C+l IK IXR THEN 62U 
l , U C-0 Cl-Ll + 1 
780 C1-CH5YC1 GUlU t,2'0 
,90 Rtll — IU..IIH.Y— 

BIO L1=5 L3=5 

B.;o G-Ll Li -0 

830 A1 = 1NKRHK 1 FfCl ' 

840 A2=INURUX1/TL2> 

845 GRAPHICS 2 

850 POSITION 4,3 ? 46;"MU 1PL1CA1 IOtl" 
855 PUSH ION 4,4 ? K; *KOO<m$XOaX‘ 
860 POSH ION 4,7? 46; Al; 

865 ? 46; "X"; ;? 46;A2;? «6;"=": 

870 1HFUI AT 
880 IP AT="STUF'" THEN 20 
8910 A=UAL', AT > •• ? #6; A 
900 IF A=A1TA2 THEN 950 
910 GOSUB 1290 

920 ? #6 ? 46;" NO, #6;Ain? 46;"X" 
; ■? 46;A2; 

925 ? *6;"="n? 46;A1*A2 
930 C=0 : FOR H=1 TO 1000;NEX1 H 
940 GOTO 830 

950 ? 16;? 46;“ RIGHT '! Hi m 
960 GOSUB 1380 
970 C=C+1;IF C<R THEN 830 
980 C=0C1=C1+1 

990 IF U=L2 THEM Ll=Ll:ft2 GOTO 830 
1000 L2=L2£2 : GOTO 830 
1010 REM —DIVISION— 

1030 L1=5 L2=5 

1040 C=0=C1=8 

1050 Al = lNKFJIXl»l.n 

1080 A2-1NTC RUX 1 ,'tLl > : IF A2=0 THEN 1060 


1065 A1=A1*A2 
1070 GRAPHICS 2 

1080 POSITION 5,3 ? 46;"DIVISIOII" 
1090 POSITION 5,4? 46;"////////" 
1100 POSITION 5,7? 46;Al; 

1110 ? 46;"/“n? 46;A2; ? 46;"=", 

1120 INPUT AT 

1130 IF AT="STOP" THEN 20 

1140 A=VAL(AT);? 46; A 

1150 IF A=A1/A2 THEN 1210 
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11 tu LUbUb 1290 

117'kl V *6 ; It;" MU, "r-i #6,Hi, ? kb, 

v »e,H', 

1180 I «,"=",•? kb,Hi A2 
119b L-u Fuk W-l TO 1668 HEX I W 
Ubb bulu 105b 

1210 kb kc," kliiHI !!!!!!!“ 

1220 bUSUB l)oU 

1230 C=C+1 17 C(R THE! I 107,b 

1240 L-U Cl-Ll + 1 

l-"j« 17 L1-L2 THU I L1-T.1J3 bUlU 1050 

12'e-O L2-L2*3-bUIU 1U5U 

lCbt) REIT —RHbt/tKk i - 

1 JUO kUk* tFLOO IU 250 SlEP 5 

lJUL cUUlllJ U,H,14,b 

1.--U4 kUK H-l lU 1U lit., I W 

l.r.Ub Ilk.. I ii 

1 JOS kUK WM lu ibb lt,:i W 
Ulu SUI.HIU u,u,u,0 
i.,c- ktiukM 
15LU IKHP 1340 
lsiU KUH 'LMEHU" 

1J4U bk’HPHlLS U b HU 

ljbu ktll --lHnl UHE Whs RlbHI — 

1 LOU I-UR 0-1 Tu S 
1392 kknl.l II 
1394 cUOHU U.IT, 10-8 
1 295 10k U=1 TO 20 NtX'l M 
129b litKT 0 

129," kUk W=l IU luO'HbXT M 
1398 SUUUJ b,0,0,0 
1 J99 k t Si Ukh 
1400 hfclURII 


1 OPEN >1,4,6, 

2 DIM HL40) S "TU||vJK_ A 

3 Lilli ML2b) V-a ——r 

5 OATH 122,109,97,92,82,73,65,61 
179b bKhk'Hltb 6 

lsbb PUSH I OH 2,3 

1616 ? “THINK IS H lEltuRY TEST PR£tRH1“ 
1626 ? "(YOURS,HOT THE ATARI'S). (HE «T 
HR I" 

163b ? “WILL ktftY HHD LIGHT UP HUIlbEREO" 


164b ? “RECTANGLES HT THE SHI IE TIME. YU 
U" 

185b Y “REPErtT EHCK Tl€ SHI IE SEOUEHCE US, 


I860 ? “THE NUMBERS OH THE ATARI'S KEYBU 
ARG. “ 

166b ? “YOU CRH UHRY THE LENGTH if fH 
E TONES" 

1690 ? "PLhT'EO BY SETTING YOUR SPEED kku 


11 1 “ 

I960 ' “TO 255, 1 IS THE FASTEST, 255 Is 
THE" 

19lb ? “SLOWEST. TRY 15b TO SlHRI." 

1920 ? ■■) : ? " Sk'EED 


1950 TRHk‘ 1920 ; UEUT L = L=IH1<L> 

196b IF LCl OR L>255 THEN ? “1 TO 255, P 

LEHSE"GOTO 1950 

1970 GOSUB 292b 

1990 GRAPHICS 3t 16 COLOR 1 

2000 PLOT 6,7’ORAHTO 7,7 

2610 PLOT 3,7 ; URHWIU 3,2a 

2026 PLOT 4,7 DRAWTO 4.-20 

2636 COLOR 2 

2040 PLOT 9,7 : DRAW TO 9,26 
2650 PLOT 10,?ORAWTO 10,20 
206b PLOT 15,7 ORHWTU 15,20 
2670 PLOT 14,7 DRAWTO 14,20 
20S6 PLOT 9,13'BRRHTO 15,13 


2690 COLOR 3 

21tW PLOT 17,7 DRAWTO 23,7 
2116 PLOT 17,28 DRAWTO 23,28 
2120 PLOT 20,7 DRHHTO 20,20 
2130 COLOR 1 

2140 PLOT 25,7 DRAWTO 25,20 
2158 PLOT 31,70RAHT0 31,20 
2160 DRAWTO 25,7 
2250 COLOR 3 

2260 PLOT 33,7 : DRAW10 33,20 
2278 PLOT 39,7 DRAWTO 34,13 
2280 DRAWTO 39,20 
2400 COLOR 2 

2410 FLOT 2,23 DRAWTO 6,23 
2428 PLOT 8,23 DRAWTO 12,23 
2438 PLOT 14,23 DRHHTO 18,23 
2440 PLOT 20,23 DRAWTO 24,23 
2456 PLOT 26,23 : CHAWT0 30,23 
2468 PLOT 32,23 DRAWTO 36,23 
2465 FOR W=1 TO 306^NEXT W 
2470 GRAPHICS 2 
2488 FOR X=1 TO 6 
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2490 POSITION 2+<X-l >*3,1 =? »6;X 
2500 NEXT X 
2520 FOR X=1 TO 40 
2538 tl-INKRtlX 1 >16 HI 

2535 tt<X>=B 
2540 NEXT X 
2550 ST=0 
2560 SC-0 

2570 POSITION 2,5 = ? #6;"STRIKES = ";=? • 
6; ST 

2575 POSITION 2,7"? *6; "SCORE = ">=? # 
6. SC 

257b FOR H=1 TO 500'ICXT H 
2580 FOR X=1 TO SC+t 
2MM C=0Oi) 

2 bto GUSUB 2790 

26.20 next x 

HEM —YOUR TURN— 

2, -,4:.t i ijk X=1 TO SC41 

26,50 bt I *1 »A h$-CHKt(A) 

2052 TRAP 2b50 

It AJ=“ * THEN END 

2tc0 h-UHU HI 21F A-U UR tt>6 THEN 2650 

2670 It A<>HiX> 1HEH 2740 

26S0 t=H "(iuSUB 2790 

2t.yu NEXT X 

2710 St=SC+l 

2720 IF SC>39 THEN GRAPHICS 2"? *6"? Ki 

" FERFECT !!" ; GOTO 3250 

2730 GRAPHICS 2 GOTO 2570 

2740 GUSUB 2660 

2750 ST-ST+1 

2770 IF ST<3 THEN GRAPHICS 2"G0T0 2570 

276:0 GOTO 3200 

2790 REI1 -BEEP ANU SHOW— 

2B0O GRAPHICS 5"COLOR 1 
2610 Cl = 12*<C-t> 

'■815 C2=12*C 

2620 HUT Cl+4,23 DRAMTO C2t4,23 

2630 N-CF2-(C>4) 

2640 GOSUB 30UU 

2650 COLUk 2"PLOT Clt4,23"BRAWI0 C2+4.23 

2860 RETURN 
2670 GUIU 2870 

28/1 REIT- 

2860 REI1 --RHS6ERKY— 

2662 FUR N=200 10 25U STEP 5 
2664 SUUhU 0,11,14,6 
2666 tUR N=1 TO 10 NEXT M 
2666 NEXT N 

2690 FUR 11"= 1 TU 100"NEXT N 
2692 SUUHU 0,0, U,0 
290U RETURN 
2910 OKhtHlCS 0 END 

2920 REN - 

294u CC-2-(1/121 
2960 RETURN 

297U Ki ri -RAItttl BLIP— 

2971 FUR 2-1 TO 50 

2972 FOR CM3 TO 15 


29 74 SOUND 0,100,10,0 
297C NEXT U 
2900 NEXT 2 
2990 RETURN 

AniU RFH —SCALE NOTE PLAYER— 

30)0 PRINT C 

3020 ON C GOTO 3030,3040,3050,3060,3070, 

3080 

3030 SOUND 0,121,10,B = GOTO 3155 
3040 M«C 0,108,10,8"GOTO 3155 
3050 SOUND 0,97,10.8"GOTO 3155 
'306.0 SOUND 0,92,10,8"GOTO 3155 
3070 SOUND 0,6.?, 10,8;GOTO 3155 
3060 SOUND 0,72,10,8 GOTO 3155 
3155 I OP H--1 TO L-NEXT M 
315, SOUND O,0,B,0 
3100 REIUKH 

3200 GRAPHICS 2"POSITION 2,3 
3210 ? «6;"IHRi:E STRIKES!“ 

3220 POSIIION 2,4"? #6;"YOU'RE OUT!" 

3230 POSITION 2,6 

3232 ? *6; "FINAL SCORE * “;=? »6;SC 
3234 IF HS<SC THEN HS=SC 
3735 POSITICW 2,8 

3236 ? 15;“HIGH SCORE = V? »6;HS 

3250 PUSH lew 2,3 

3:252 ? SC; "PLAY AGAIN? Y/N" 

3254 GET *1,A 
3256 At-CHRKA) 

32C0 IF At="Y" THEN GRAPHICS 0GOTO 1920 

3. 75 IF AtOHI" THEN,3254 
3770 TRAP 3890 
'3 60 PUN "LI imi" 

3. 90 GRAPHICS u tim 
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1 open # 1 , 4 , 0 ,“K - ? 'a,,;,; . \v 

2 Din At<20> f 

5 DATA 122,109,97,92,82,73,65,61 "V 
332b GRAPHICS OPPOSITION 14-3 

3322 ? "MOUNTAIN"=G0$UB 457B 

3324 ? i' ■? “THE OBJECT IS TO HI I A SER 

IBS uf-“ 

3326 ? "TARGETS WITH YOUR KhBOOtl GUM.* 


"YOU COtll POL THE UELOCITY hill I HE 


3330 ? “AMU£ ClF THE PPlUJtCT1LE “ 

3332 Y =Y "III ThKOElS ARE NORTH 10, 20, 
OK 30" 

3334 Y "PUlNIS AMU CHANGE Of PhNOUM." 
3336 ) ■■■> TRESS ANY KEY 10 GO ON.* 
3336 LEI 11.h 

3340 GPAPPIlCS 0 : Y '< *Y < “EE1WEEH VUU 

hi ID THE IhKliEIS THERE lb" 

3342 Y “H nounI HIM WHOSE HEIGHT CHHHCES 
HI “ 

3344 ; "KhIIUI YOU MUSI SHU01 UUER THE 


3346 : “nuUHThlN IU PEACH THE IAPGEI." 
3346 • • Y "VUU ONLY HhUE 230 HlttWJ CHARGE 


3349 Y “SU TRY 10 HIT THE 30 K0IN1 IhKOE 
1" 

355U Y "I111H EACH SHOI “ 

3360 ■■■! ‘PRESS WHY KEY IU GU Oil * 

33. "0 LEI HI, A 

33oU SH=250 5C=U ; C1 =0 

33140 SC-SC+C1 

340U IF SH-U IHEII 4160 

3410 Ll-0 

3415 llHF:-IMKRHUa)«20J+15 
3430 LKHKHlCb b 
343b bEICU.UK: 1,13.10 
i440 tOl.UP 1 
34bU KUK X-U IU 3 

34..0 Pl.UI X+14,MAX-C3-X ) ■ UKhH10 X+14.39 
34.0 ploi i4-x,iihx-c3-x> ukmnio 14-.*;. 3y 
3400 HEX I X 

3490 tULUR 2 

3Unt FOR X=M 10 6 

3510 PLOI 6,39-X : DRftl-ITO 4,39-X 

3520 he:>;i x 

3530 PEI1 —SET 1HE TARGETS— 

354B COLOR 3 

3545 FOR H-li 10 b 

3554J PLOI 22,39-H : GRANT0 25,39-H 

3560 PLOT 28,39-HURAHTO 31,39-H 

3570 PLOT 34,.39-H* CRANIO 37,39-H 

3572 NEXT H 

3500 H1=1 HT( RtlX 1 >Y3 >♦ 1 
3520 h2=lHT(FJlK 1 )»3>+l * IF A1=A2 THEN 35 
20 

36O0 A3=lNK»tKl»3>+l*IF A1=A3 ClR A2=A 
3 THEM 3600 


3610 hi =A1:*10 H2=A2*10 A3=A3*10 

3620 y '■ *;A1;" “;A2;“ ";A3;" SC 

UK'E=“;SCi" CHARGE="iSH 

3630 IP SC >99 THEM 3650 

3640 Y 

3650 i * 

-•■660 Y " 11HIT CHARGE "j 
3670 1 PAP 3650 
5672 INPUT U 
56 73 Y 
5b 74 Y " 

5675 Y " INPUT HHGLE 
36*76 IPhP 3674 
5677 IHPU1 0 

5680 IP U<1 OR 0>89 THEM ? 1 1 -I "AMO 

LT OUT UP RAMIE" GO 10 3620 

36.95 IF SHvU THEM GRAPHICS 1 POSITION 9, 

5 * 7 #6; "PGP" POR 11=1 TO 200*NEXT H GOT0 

3450 

5697 SH=SH-U 

37U0 0=0*3.14153265/180 

3710 X=0 

5712 SOUND 0.57,8,8 
5715 1 =XA UfCiJsC u)) 

3720 Y=U:f: I fSIPK 0 >-4.9* T-2 
3730 COLOR 2 
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1 

6 DA1A 122,109,97,92,82,73,65,61 
220 Gust® 1060 
230 GRAPHICS 0:? ? 

240 ? " BLACK HOLE CHASE " 

250 ? 

260 ? "YOU ARE BEING CHASED BY CREATURES 

265 ? "FROM A BLACK HOLE. YOU IWST PILO 
T" 

2,'0 ? "YOUR SPACECRAFT ACROSS 1HE GALA:",' 

280 ? "AIIO AWAY FROM THEM AS FAST AS" 

290 ? "POSSIBLE AT THE SAME TIME, YOU" 

3O0 ? "IUST AUDIO MOUItt: INTO YOUR an U 
AF'OR" 

310 ? "TRAIL (WHICH IS RAUfOACT IUE AlIU D 
IS-" 

320 ? "APPEARS AFTER A WHILE) AND AUOIl)" 

330 ? "HITTItt: the: edge of the galaxy. 
THE" 

340 ? "EDGE OF THE GALAXY IS UISIELE AT" 

345 ? "FIRST, AND THEN LITTLE BY LITTLE 
THE" 

350 ? "CREATURES HAKE PARTS OF I HE EDGE" 

360 ? "DISAPPEAR BY 1URHIHG IT INTO A BL 
ACK" 

370 ? "HOLE-ISO DON'T RUM 1NIU THE HOLE 0 
R" 

380 ? "THEY’LL GET YOU." 

390 '? =? "PRESS SPACE TO GO ON." 

400 GET #I,A 
410 GRAPHICS 6 

420 f ■'< 

430 ? "USE THE I,J,K,AND II KEYS TO ItOUE" 

440 ? "UP, LEF1, RIGHT AID DOWN THROUGH 
TllL" 

45o y "galaxy you cam set the difficul 

TV" 

4cO ■ "LtUEL FROM 0 10 9. 2LRU HILL GIU 
E" 

47u > "yuu h galaxy hithuut any obstacle 

3 Tu" 

460 ( "MuUE AROUND. LEUELS uF DIFFICULT 

i'" 

490 • "v 1-9) MILL GIUE YOU All INCREASING 

495 ■< "HUMBER UP PLANETS AND STARS TO MO 
UP ” 

-‘■4t0 : "YUUk CHIP AROUND. IP YuU CAM OUT 
K'l HI" 

510 • " I HE BLACK HULL CREATURES FOR 200" 

520 ? "HOUR'S, THEY'LL RUN OUT UP FUEL BE 
Furl" 

53u "YOU DO AND YUU HILL BE ShUED." 

540 i 


550 Y “ DIFFICULTY LEUEL (u-9)= ", 

555 LET SI,A Ht-CHRICn) 

556 IF Av4S UR A>57 THEN 555 

557 D-UiiLi AT > 

580 GRAPHICS 5 

590 tOCUR 5 HUT u.u DRaHTu ?9,u DFhHTu 
79,39 OFaHTu 6,39-ORaMTO 0,0 

600 S=U 

610 IF U>0 THEM 920 
62U REM — 

630 X=4» i-7u 

b4U COLOR 2 

t5'0 FT. 01 X, Y 

c.60 XD-lNKRtlX 1 )43+l )-2 

670 IF i:u^U THEM 660 

D00 YU -0 

690 IF F'EEIU 764X>255 1HEH 820 
, 00 IF X+XD?79 UR X+XUiU THEN 90o 
710 IF YtYO/39 Uk Y+YLKU THEM 9UU 
72U X-X+XlJ 
7811 Y-Y+YO 

740 CH OP 3 : PLOT IHKRHtX 1 >480+1 >-l, IHT( 
RUCK 1 .'44011 )-l 

750 LOCATE X.Y.COL IF COLO0 THEM 900 
760 CULOR 2 
770 GOSUB 1110 
780 S=S+1 

790 IF SI>200 THEN 880 

792 GRAPHICS 2 POSITION 4,4' #6;"YOU HA 

UE OUT" 

794 POSITION 6,6 ; #6;"RUH THE” 

795 ROSITIOFI 5,8 ? *6; "CREATURES' ” 

796 GOSUB 1140 

797 PCS' H=1 TO 20O IIEMT II 

798 GOTO 1370 
800 F LU I X,Y 
810 GUTO 690 

820 GET tl,A AI-CHRT(A) 

830 X1=X0'Y1=Y0 
840 XLi=0 7/0=0 

850 IF At="J" THEM XD=-1 GOTO 690 

860 IF Af=“K" THEM XD=1 GOTO 690 

870 IF AT="M" 1HEM Y0=1 GOIU 690 

880 IF A$=“l“ IHEII YU=-1GUT0 690 

890 XU=X 1 YO-rT GOTO 690 

900 GRAPHICS 2'F’OSITIOH 7,5 PRINT »6;"CR 

ASH" 

905 GOSUB 1O20 
910 GUTO 1340 

920 REM -SET OBSTRUCTIONS— 

930 FOR X=1 TO 10CO 
940 COLOR 1 

950 X1 = IMT(FMK 1 )t??+l HI 
960 Yl = lHT(RtCK 1)137+1 HI 
970 IF XI =40 AFO Yl=20 THEM 950 
990 PLOT XI, Y1 
1000 NEXT X 
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1010 GOTO 620 

1020 REM --RA36ERRY-- 

1030 FOR RAS=200 TO 250 STEF 5 

1032 SOUND 0,RAS,14,8 

1033 SOUIO 1,50,8,8 

1034 FOR M=1 TO 10‘NEXT U 
1036 NEXT RAS 

1038! FOR W=1 TO 100=NEXT H 

1040 SOUND 0,0,0,0 

1041 SOUND 1,0,0,0 

1042 RETURN 

1030 GRAPHICS MENU 
1060 FUR INTRO-1 TO 250 
1062 SOUND 0, INTRO, 10,8 
lUt.4 SOUND 1,250-INTRO,10,8 
1U6S NEXT 1N1RU 
10, 0 SOUND 0,0,0,0 
10/2 SOUND 1,0,0,0 
lloo RETURN 

1110 REI1 —BLIP— 

1111 K(S=2 1F S>100 THEN KB=1 

1112 8110=1 - IF S>30 THEN hHB= 3 
Ills FOR BLIP-1 TO KB 

1114 FUR F1UJ--0 TO 15 STEF flflB 

lilt SOUND 0,50,10,P1LB 

11 IS NEXT F'lLfc 

IKiJ NEXT EUR 

1125 SOUND 0,0,0,0 

1130 RE 1 URN 

1140 RED — SCALE— 

1150 FOR SCHli>l TO 6 

11 to REND N 

11/0 SUUND 0,11,10,8 

11 JU F UR W=1 TO 20 NEXT N 

1190 NEXl SCALE 

1200 FUR H=1 TU 150NEXT W 

1210 SOUND 0,0,0,0 

1220 RESTURL 

! :../o RETURN 

134U U-10-U 

1 • ,U IF D-U THEM M=S 

ls/U REN — 

13, 3 GRAPHICS 2 RUSH lull 3,3:? *6;“YOUR 
SEURt = ", =? 16; S 

Is, 3 Fusil 1UN 3,3 ? 46; “P’LAY AGAIN?" 
13/,' PUSITluN 7,7:? 46; "Y •' N“ 

13, 0 UEl 41,A : A4=CHKt<A> : IF At=“Y“ THEN 

Uk'HpHlLS « GUTU 340 

1 3/3 IF HK.>"tr THEN 1378 

1380 TRAP' 1400 

1320 RUN “DNEHU” 

14 DO GRAPHICS O END 


1 DIN A*<10> 

5 OPEN 11,4,0,"S 

6 OPEN 12,4,0,"K 
1020 GRAPHICS 0:? 

: ? 




LEMAHS 


1030 ? "SAFARI LEMAHS CAN BE AS HAFT) AS 
THE” 

1O40 ? "REAL THING OR AS EASY AS A SUOA 
V" 


1050 ? "DRIUE.■:? 

1060 ? "TO START THE RACE, PRESS THE JOY 
STICK" 


1070 ? "TOWARD TIE TOP POSITION. TOP" 
1080 ? "POSITION INCREASES SPEED, BACK" 
1080 ? "POSITION SLOWS SPEED.* 

1100 ? :? "THE FASTER YOU rRAUEL, THE FA 
STER" 

1110 ? "YOUR SCORE ADDS IF'. ..SO GO!!!!!! 

•I 


1126 ? =? “YOU HADE 60 SECONDS, SO HURRY 

i" 

1150 ? :? :? "PUSH RETURN TO GO ON" 

1152 INPUT At 

1154 SEC=1MT<<PEEK< 18)*65536+PEEK< 19 >*25 
6+F EEK< 28 > >/60 > 

1160 GRAPHICS 0 

1170 SF-O = FI R$TX=12 NCARPOS= 16: SC=0 
1U30 FOR STB0P0ER=1 TO 19‘GOSUB 1600‘HEX 
T STEOROER 

1190 REN —PUT CAR IN PLACE— 

1200 FOSITIOI NCARPOS,12" " POKE <752 
>,1 

1210 POSITION NCARPOS,11 : ? " " 

1220 STK=STICK<0) 

1222 SEC 1-IHT<<REEK< 18>*65536+PEEI« 19>*2 
56+FEEK<20>>/60> 

1234 SEC 01 lUS-jEC 1 -SEC = FtlS ITI OH 2,1‘PRINT 

SECONDS 

1226 IF SECO1OS=60 THEN GRAPHICS 2:G0T0 

1 752' 

1230 IF STK=10 OR STK=14 OR STK=6 THEN S 
F'-SF+1 

124U IF S)K=y OR: STK=1J OR STK=5 THEN SP 

=SP'-1 

125U IF SF\0 THEN SF-U 
1260 IF SP>10 THEN SF-10 
1270 IF SF-m THEN 1220 
12U0 R:L=RI4X l) 

1290 IF REXI.52 THEN FIRSTX=FIRSTX+1 3 
13U0 IF KK0.48 THEN FIRSTX=FIRSTX-1.3 
1310 IF FIRSTX<0 THEN FIRSTX=0 
1320 IF F1RSTX/29 THEN FIRSTX=29 
1330 GOSUB 1600 

1335 SOUND 0,2U0-7KP,6,8 

1336 SOU Cl 1,25O-20*SP,10,8 

1337 IF SF-10 THEN 1350 

1340 FUR 11=0 TO 2O0-SP420 > NEXT U 
1350 POS IT I UN UCARPOS,11? " " 

1355 POSITION HCARPOS, 10 ? “ * 

1360 IF STK/=9 AND STK<=11 THEN NCARPOS* 
1 ChRPGS- 1 
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THEM HlhRF 08=11 


1370 if $TK>=5 AND STK< 

CmRPOS+1 

1360 POSITION NCftKPOS.l. 

13-36 get #i.a 

138'/' PUKE C93/,H 
1420 If PEEK<93.«68 1 HEN 1630 
1425 F'USllJuH MChRPVlS, 12 PRIM “ " 

143:6 f'U; 1TIUI UChRFOS, 11 E'KlHl " “ 

1458 8C=Sl+1 iof 
14 ;A I.IJHI 12.41 
1100 Kt II - 

ltEo Eu'..moil pjkstx, 23 ? xx" 

1620 RETURN 

1639 SOUND 2,30,16,12 

1640 FOR 11=0 TO 200 S1EF 5 
lfc'jO SOUND 3,11,10,8 

1660 GRAPHICS 2-POSITION 6,3' #6;"CRASH 

1665 POSIT0311 3,6-? #6;"SCORE = 

1666 ? #6;SC 
1670 NEXT II 

1680 FOR U=1 TO 300 l€kT 11 
1690 FOR SHO=0 TO 3 
1700 SOUND SIC.0,0.0 
1710 NEXT END 

1740 POSITION 3,8:? #6;"PLAV AGAIN? Y.-1I" 

1745 GET #2,A 

1747 aT=CHFT';A> 

1748 IF AJ="Y" THEN 1154 

1749 IF AtO"H“ THEN 1745 

1750 GOTO 1760 

1752 POSITION 3,6 ? *6;"SCOPE = 

1753 SOUtlO 0,0,0,0SOUNO 1,0,0.0 

1754 ? #6; SC GOTO 1740 
1760 TRaF 1780 

1770 RUN "DHttlU" 

1780 GRAPHICS A fHO 


1 OPEN #1,4,0,"10* 

3 DATA 81,2,81,2,91,1,96, 

4 DATA 96,2,102,1,96,1,96 

5 Dili A$( 10) 
liu GRAPHICS 3+16 
112 SETCOLOR 1,5,6 

114 fOR: CuL=l TO 19 

115 COLOR COL 

116 SOUND 0,40,CUL/2,8 
120 PLOT 5,2 : DRaHT0 5,170EAHT0 10,17 
130 PLOT 12,6 : DRAIIT0 12,17 

140 OFhIITO 17,17 : DRAUT0 17,6 
150 PLOT 19,17 DRAMTO 19,6 
leu DRAINO 25,17DRAUT0 25,6 
170 PLOT 27,17 LiPhHTO 27,11 
100 Lifulllu 30, & URhITTO 33,11 
ion IiKiiHIU 33,17 PLOT 27,12 
no DkhiNu 23.12 
21 n lit.:.I lit 

■ ■" Mir 14— i 10 120u IIEXT U 

■ i -inHID ii,U 0,0 
..40 OUlU 1090 

5i ,0 GKmITIICS 0 : "■ ? ? 

5 10 f "fua=" POIE i7523,1 

511 ■ i "DEL =“ 

510 • 1 "DIST=“ 

51;. : "£:l.lhti=“ 

514 ■ ? "TIUE=" 

0 frit — SET INITIAL CONDITIONS— 
f Of L-12u lEl =-5u CilST: Sou IIIIE =0 BOR 
ti -0 uLOOIil-UIST 
1,11 flit - LlrOArE LOE 111 I 11 Oil: — 

' i X f Dr.C .0 lliLtl FUEL --U 
...i 11 11 iull 8.4 :• FUEL, 

■ i : u 1111 j: l o,6 ; (.EL, 

bUU POSITION 8,8 '? D1ST, 

bOl ? * 

620 IF FUEL=U THEN 640 

630 IP STR1G(0)=0 THEN F=1 FOR M=1 TO 10 

0 SOUND 0,50,8,0:NEXT W SOUND 0,0,0,0:00 

TO 650 

&40 F=0 

650 POSITION 8,18? BURN, 

655 ? “ " 

660 POSIT lull 8,12:? i Mg, 

665 ? “ * 

670 IP STICK 0>=I5 THEN BURN=-6URN 

671 IF ST1CK(0)=14 THEM BURN=10 
t72 IF STia'<0)=6 THEN BURN=1 

673 IF ST1CK<0>=7 THEM eURN=2 

674 IF STICK<0>=5 THEN BURN=3 

675 IF ST1CK<0>.= 13 THEM BURH=4 
fc?6 IF STICK(0)=9 THEN BURH=5 

677 IF ST1CK(0)=H THEN BURN=6 

678 IF STICK(8)=10 THEN BURH=8 
680 REtl —DRFW— 

685 IF 21-OIST/700423<0 THEN 1930 

690 POSITION 38,21-OLDDI ST/700423 ; ? “ ■ 

691 POSITION 30,22-OLDOIST/700423: ? " • 
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700 POSITION 30.21-OIST'700*23;? CHRK8) 
iCHRlUO) 

701 POSITION 38/22-OIST/700S23 ; ? CHRK 13 
7 >;CHRi< 143) 

703 aDDlST=01ST 

710 IF IHKTH£/2k>TII1E''2 THEN 740 
730 GOTO 750 

740 FOR W=1 TO 100=NEXT H 
750 IF FUELCBURH THEM B1=FUEL 
760 IF F ITEM B1=BUMI GOTO 780 
770 61=0 
760 REM — 


738 FUEL=FUEL-B1 


800 81=81*5 

810 ACOB1-5 

830 00=0IST 

840 UEL=UEL+ACC 

861 01 ST= INK OIST+UEL+ACC/8) 

870 TIME=TIME+0.5 

880 IF DIST<=0 AND UEL<-30 THEN SOUND 0. 
240/8.8=SOUND 1,250,14,8 GOTO 940 
886 IF 22-DIST/700*23>22 THEN 940 
830 IF DIST>675 THEN 1930 


980 GOTO 569 
910 END 

940 REM —PRINT FINAL CONDITIONS— 

950 IF OISTCO THEN DIST=0 
968 POSITION S.4 : ? FUEL; = ? " 

970 POSITION 8,6 ? UEL; ; ? * 

980 POSITION 8,8 ? DIST; = ? ' 

330 POSITION 8,10 ? BURN; = ? " 

1O00 POSITION 8,12 ? TIME; = ? " 

1010 FOR N=1 TO 200 TEXT H 
1012 IF UEL>-31 THEN 1821 
10.30 REM —CRASH— 

1048 GOTO 1830 
1030 GRAPHICS 0 
1100 ? ? ? 

1110?" INSTRUCTIONS" 

1120 ? =? 

1130 ? "YOU ARE THE PILOT OF A HEN I100EL 

XX Y3" 

1140 ? “LUNAR UEHICLE. THE CRAFT HAS DEU 


EL-" 

1150 ? "OPED A MINOR PROBLEM—THE GUIDAN 
CE" 

1160 ? “COtfUTER HAS FAILED. YOU MUST HO 


H" 

1170 ? "ATTEtPT TO LAID OH THE LUNAR SUR 
FACE" 


1188 ? "FOR REPAIR HORK." 

1200 ? ? "YOU CONTROL Tit CRAFT BY BURN 
ING FLtL" 

1210 ? "AT REGULAR PERIOOS. IF YOU BURN 
TOO" 

1220 ? "MUCH FUEL, YOU MAY BE SHOT OUT 0 
F THE" 

1230 ? "MOON'S GRhUITY AID INTO Tit COLD 


1240 ? "DARK REACHES OF SPACE. IP YOU BU 
RH" 

1250 ? "TOO LITTLE FUEL, YOU WILL REACH 
THE" 

1260 ? "LUNAR SURFACE-FGREUER. “ 

1270 ? ? "PRESS AIT? KEY TO GO ON." 

1275 GET *1,A 

1280 GRAPHICS 0 ? = ? = ? = ? "Tit AMOUNT 0 
F FUEL YOU BURN IS" 

1290 ? "CONTRCLLED BY THE JOYSTICK POSIT 
I OH." 

1300 ? "TOP-RIGHT BURNS 1 UNIT OF FUEL. 
THE" 

1310 ? "AMOUNT OF FUEL BURNED INCREASES 
AS" 

1320 ? "YOU MOLE THE STICK AROUND CLOCK!! 
ISE." 

1330 ? "TCP POSITION BURNS 10 CHITS. PRE 
SSIHG" 

1340 ? "THE RED PUSHBUTTON WILL IGNITE T 
HE" 

1350 ? "FUEL...SELECT Tit BURN RATE WITH 
THE" 

1360 ? "JOYSTICK AID PUSH THE BUTTON" 
1370 ? :? = ? "PUSH ANY KEY TO BEGIN DESC 
ENT " 

1380 GET 41,A 
1390 GOTO 580 


1621 GRAPHICS 2 POSITION 4,6 ? 46, "sood 
I jtidiiiS" GUSUB 1940 

1822 PUSH ION 3,8;? #6,"PLAY AGAIN? Y/N" 

1623 Gtl 41,A : A4 =CHRKA> 

1824 IF Hl="Y“ IHttl 500 

1825 11 HT\ >“N“ THEN 1823 
1626 GOTO 1:30 

1830 KEM * -CRASH ENDING— 

18i2 GRAPHICS 2 

1833 POSITION 7,6 46,"CRASH" 

1835 SOUND 0,0,0,U : SOUND 1,0,0,0 

1840 GUlO 1822 

1850 TRAP 1870 

I8t>0 PUN "01 EtU- 

lS 70 GRAPHICS 0:£NO 

1930 GRAPHICS 2=POSIT]ON 1 , 6 ? *6; “blast 
oil for rtuto"GuSUB 1931‘GOTO 1822 

1931 FOR N=15o TO 0 STEP -1 

1932 SOUND 0,11,10,8 

1935 FOR 11= 1 TO 2=NEXT M 

1936 lEXT N 
1958 RETURN 

1940 FOR SUCCESS 1 1 TO 8 

1941 READ H 

1942 READ Till 

1945 sound o,h,io,8 

1946 FOR U=1 TO SUIT1M 1EXT W 

1947 SOUND 0,0,0,0 

1948 HEX! SUCCESS 

1985 SOUND 0,0,0,0 
1960 RES I ORE 
19.'0 RETURN 
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IS III THE CGOt\ BUT IN THE 


I OPEN #1,4,0,"K ; " 

10 DIN AK20),DK10> 

15 Dill PK20),MC20) 

20 GRAPHICS 0 
40 EtIPS=1000 ERASE=1100 F1AYAG«N=1200 
50 C YAN I [£-1303 CONGRATS= 1400 RAS=1500 
100 ? " ALIEN " 

110 ? " YOU ARE OH SPACESHIP NIMROD YOU 

II 

120 ? "HAL£ A FEW MINUTES TO BREAK THE C 
COE" 

130 ? "NUMBER THAT HILL OPEN THE WEAPONS 

140 ? "UAIJLT SO THAT YOU CAN GET AN ANTI 

150 ? "MATTER LASER RIFLE - THE OILY NEA 
PON" 

160 ? "THAT WILL SAFELY DESTROY THE ALIE 

N." 

170 ? :? “TV£ ALIEN HAS KILLED THE REST 
OF THE" 

180 ? "CREW AID IS SEARCHING FOR YOU. HE 

iso ? "Wants you for your gourmet qualit 
IES." 

200 GOSUB BLIPS 

210 ? =? ■? “PRESS SPACE TO GO ON." 

220 GET #1,A 
230 GRAPHICS 0 

240 ? " )THE SECRET CODE IS MADE OF 
NUMBERS" 

250 ? "FROM 1 TO 9 IN ANY ORDER, HOME" 
260 ? "REPEATED MOTHER, THE SHIPS COMFU 
TER," 

270 ? "WILL ALLOW YOU TO DEC ICE THE NUMB 
ER" 

280 ? "OF DIGITS <2 TO 9) III THE CODE .* 

290 GOSUB BLIPS 

300 7 • ■ "PRESS SPhCE TO GO ON." 

310 GET »1,h 
320 GRAPHICS 0 

330 :? " >UHE LAST WORD IF THE ALIE 

11 GETS YOU" 

340 •' "BEFORE YOU BREAK THE CODE, YOU CA 
H" 

350 '{ "PUSH THE SPhCE BAR FUR CYANIDE GA 

•3t-U Y “WHICH WILL KILL YOU AID THE ALIEN 
Hi “ 

.320 “THE SAME TIME."-GOSUB BLIPS 
380 { 7 ■■'< “PRESS SPACE Null TO GO ON." 

-■40 get til, h : GRAPHICS 0 
400 7 “ )AFTER YOU ENTER YOUR GUESS AN 

D PRESS" 

410 ? "CRETURN/, THE COMPUTER HILL EUALU 

CtiP" 

420 7 "YOUR GUESS AS FOLLOWS-" 

4 30 y * i: THIS MEANS OE OF YOUR N 
UllBtKS" 


440 7 “ 

450?" WRONG PLACE." 

460 ? “ i- THIS MEANS ONE OF YOUR ID 

MGERS" 

470 7 * IS BOTH IN THE CODE AID III 
THE" 

480 7 « RIGHT PLACE “ 

430 7 * ID SYMBOLS 01SPLAYE0 MEANS THAT 
NO" 

500 : ''NUMBER III YOUR GUESS IS IN THE CO 
Db " 

5u5 gusub BLIPS 

Sly 7 •? “PRESS SPhCE TO GU Oil “ 

520 GET *1,H 
550 GRAPHICS 0 


too ? " )how many numbers in the cod 

E? "i 

610 GET *1,A ; A4=CHRKA> : IF A<50 OR A>57 
TltN 610 

620 B=UAL(Ai) : ? B 

630 FOR X=1 TO.B 

640 1KX)=1NT<RMX1>*9+1) 

643 IF X=1 THEN 680 
645 FuR Y=1 TO X-l 

650 IF IKXHKY) THEN PK X)= INK RICK 1 )*9+ 

1 )-Y=l-GOTO 650 

660 I EXT Y 

6EI0 IEXT X 

690 TGUESSES=0 

700 IF TGUESSESO10 THEN 710 

703 ?->? "THE ALIEN TOOK OIE LOOK AT YOU 
AID" 

704 ? "WENT BACK FOR SOME TEAT TEMOERIZE 
R." 

705 ? “YOU’D BETTER HURRY UP." 

706 GOSUB ERASE 

710 IP TGUESSES015 THEN 720 

713 ? :? "THE ALIEN HAS GOtE OUT FOR PIZ 
ZA. IF” 

714 ? "THAT DOESN’T KILL HIM, HE’LL BE B 

ACK” 

715 ? "TO EAT YOU HI THIN 5 MINUTES" 

716 GOSUB ERASE 

720 IF TGUESSESO20 THEN 730 

723 ? ? "THE ALIEH IS NIBBLING Oil YaR 
LEFT" 

724 ? "LEG” 

725 ? "" 

726 GOSUB ERASE 

730 IF TGUESSES025 THEN 750 

733 ? =? "THE ALIEN IS NON CHEWING ON YO 
UR" 

734 ? "RIGHT LEG! IF YOU WANT TO STOP, Y 
OU" 

735 ? "CAN PRESS <SPACE>." 

736 GOSUB ERASE 

743 ? =? "BUT kE’RE GETTING OFF THIS SHI 

P.” 
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744 ? "tuOU LUCK!!“ 

745 ? ** 

746 GusUfc ERASE 

750 IF TGUESSESO30 THEN 760 

753 ? = ? “THE ALIEN COT YOU! MOTHER' TUB 
IS" 

754 ? “MAKING Wl EMERGENCY FLIGHT" 

755 ? “IPOOR ALIEN). "=C08UB RAS=COSUB ER 
hsE 

75b GUl'U FLAVAGhIM 
i'e-U 

7b5 FUR .7-1 Tu B 
7.0 ? ", 

7oU HEX I X 

72*0 FUR X=1 TO B‘? * ”, NEXT X 
000 REll —CL! 1HE GUESS— 

005 lt - U EX-O 

010 IGUEbSES=lGUESSES*1 

62u Fur F =1 TO 6 

030 GET # 1, H All F )=CHR*t A > 

Oil IF hKF >=“ • THEM GOTO CYANIDE 
03-' IF hKF X“ 1 “ OR fti(F»“9* THEN 830 
OF o G=UhL7 hK F > > 

65 3 ML F >=G 
cob H-t K F) 

357 GOSUB 1600 

c'50 IF hf1E<-1 THEN GOTO 330 

655 ? G,“ 

660 IF U-H 1HEH EX=EX+1GUT0 676 
87u FOR Y=1 TO 8 
671 H=IKY> 

873 IF G=H THEN IC=IC+1 

674 NEXT Y 

6 i t MEX1 F 

803 IF EX=0 THEN 890 

604 FUR 3=1 TO EX 

886 ? ■*"; 

888 NEXT 2 . 

690 IF IC=S THEN 90O 
893 FOF: 2=1 TO IC 
b'94 ? “I"; 

896 NEXT Z 

900 REll —CONTINUE— 

910 IF EX=6 THEM GOTO CONGRATS 
990 GOTO 700 
10U9 F OR C=1 TO 20 
1010 HD=INT<RIIX1>*255) 

1020 SOUfC 0,N0, 10,8 
1040 NEXT C 
1060 SOUND 0,0,8,0 
1070 RETURN 

1100 FOR N=1 TO 500 NEXT M 
1110 ?" 

1130 ? " 

M 

1130 ? " 

H 

1140 ? • 

n 


1200 GRAPHICS 2 F-0SITIOH 4,5-? #6;"PLAY 
AGAIN ?" 

1210 POSITION 7,8-? #6;"Y / H" 

1220 GET #1,0 
1230 D*=CHR*(D) 

1240 IF D*="Y" THEN GRAPHICS 0 60TO 600 
1250 IF DtO"N" THEN 1220 
1260 TRAP 1280 
1270 RUN "D-MENU" 

1280 GRAFT!ICS 0 END 
13O0 REN -SIZZLE- 
1310 SOUND 0,59,8,8 

1320 GRAPHICS 2 : POSITIOM 6,5-? #6;"CYANI 
LIE" 

1322 POSITION 6,8>? #6;"SIZZLE!" 

1325 FOR W=1 TU 300NEXT U 
1340 SOUND 0,0,0,0 
1350 GOTO FLAYaCAIN 

1400 GR'AF'HICS 2 : POSIT ION 2,6-? #6> “CONOR 
hTULhTIONS! " 

1405 F UR 2=1 10 5 

14)0 FOR NO=10O TO 0 STEP -5 

1420 SOUNO 0,HO,10,8 

1430 NEXT NU 

1440 NEXT Z 

1450 SOUND U,0,0,0 

14bO FOR W=1 Tu 280 : NEXT H 

147U GUTO FLAYACAIN 

1500 FuR 1=300 TU 250 STEF 5 

1510 SOUND 0,1,14,6 

1520 F UR 11=1 TO 10NEX1 M 

15:0 ItXl 1 

154U FUR M=1 TU 150NEXT M 
155U SUMtlU U,U,0,U 
15‘bO RETURN 

1600 REll —HAS NUMBER BEEN USED?— 

1605 Hi 16=0 

UNO F UR 1 = 1 lU F 

1615 IF f=1 UR 1=1 THEN 1630 

163U IF 6=1 k 1-1) IHEI! HI 16=1 

U.30 FtXI 1 

1640 RETURN 


1150 ? " 
1160 RETURN 
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1 OPEN #1,4,8, "K: 

5 Din matt.' 

10 DATA 122,109,97,92,82,73,65,61 
70 GRAPHICS 0 



50 ? " DYNAMITE “ 

55 OJSUB 870 

70 ? ■ HELCOIE TO DYNAMITE! THE Cult IS" 

80 ? "VERY SIMPLE. THERE APE 15 STICKS 0 
F" 

90 ? "DYNAMITE 111 AN ABANDONED NINE AIL 


10O ? “OF THB1 ARE UNLIT EXCEPT THE LAST 


426 U-INT' I S Ntl .'+U .5 ) 

420 IF U-0 THktl i’-ll GOTO 4C0 
440 U=U-1 

450 It THEN 51U 
4UJ : " I'LL l«,t ", 

4L5 : fa 
4, >J |; IT-0 

4S0 FUK T--1 !U 8.10 lit:.I I 

490 it It U IttEil CPU 

CUM UHU SKI 

510 Rf.ll • 4 11). hi RtiUMl 

590 It II II 1HLII 0=1110 (4lit. 1 ■ .14+ 1 / L.OT0 4 

till 

53U UMHKKtlf 1 ,lltl • GiJ 1 Li 4cD 


110 ? "ONE. THE GHOST OF YOUR DEAD PaRIH 
ER" 

120 ? "HAS LIT THE LAST STICK OF DYNAHIT 
E" 

130 ? "ANO NON HE HANTS TO FLAY A GAtlE H 
1TH" 

140 ? “YOU (HA HA).” 

145 ? “EACH OF YOU TAKE TURNS TAKING 
STICKS" 

150 ? “OF DYNAMITE FROM THE PILE, UP TO 
3" 

160 ? "STICKS IN A TURN. IF YOU TAKE THE 

II 

170 ? "LAST STICK, YOU'LL BE BLOWN UP AN 
0" 

180 ? "HAUE TO TAKE YOUR PARTNER'S PLACE 
IN" 

185 ; "THE NINE —FOREUER." 

190 ? :? "PRESS SPACE TO GO ON "GET #1, 
A 

200 GRAPHICS 8 

210 GOTO 250 

220 IT-15 

230 11=5 

240 KtI URN 

25»j GUSUt: 82U 

2bO it 11,01 IHtll 710 

2, 0 It 11=1 IHtN ,10 

280 It 11=0 HI III H=U THEN , 10 

290 IF 11=0 THFll 710 

300 ? I . . 

310 'I 
320 G=1 

3 30 GRAPHICS U f ? ? ? ■( ■; "PO YOU 

HhIII TO GO FIRST? <Y4I/', 

335 i£T VI,h 
340 COSUfc! 220 
350 AT=CHM(h> 

355 IF hT=“Y" THU) 540 

356 IF THEN 335 

360 RE 11 —I MODE FIRST— 

37D GOSUfa 720 REM —UPDATE— 

380 IF RHDUX1/G THEN 510 
390 REIT -STRATEGY— 

4UU L=N XM+1) 

410 1-L-IHKLT 


540 REM — HUMAN PICKS— 

550 GOSUB 720 

570 7 * HUM MANY HILL YU'.I Tnl fc. 

575 TPAR 570-INPUT AT 
580 ? 

590 U=IHT<UAL*.A»» 

595 IF D■( =U THEN 7 "SORRlY, THhT litjlI'T I® 
RK!"'GOT 0 570 

60O IF DM1 THEN ? "THAT'S TO': tWf, THE 
MUST YUIJ LAN" 

610 IF 041 THEN ? "ThIE IS ? 11 GOTO 5 
70 

620 IF 0>N THEN ■ “THERE AREN'T THAI 11.71 

V TO TAKE'" GuTO 57y 

630 N=H-0'IF N=0 THEN 650 

640 GOTO 370 

650 GRAPHICS 0 

660 : “ ) YOU LOSE! 1 " COSUE 

830 

670 ? "DU YOU HAHT TO PLAY AGAIN- cY/tl) 

675 GET *1,A AT=i HRI'.M ' 

688 IF At="Y" THEN U=G+1G0T0 330 
682 IF AtO"N" THEN 675 

685 I FAR 637 

686 RUN "U'tTtlJ" 

687 GRAPHICS O 'END 

690 GRAPHICS O ' " I LOSE, YOU GET 
ALL 1HE GOLD!"'GOSUB 950-GOTO 670 
70O STOP 
710 ? 

720 REM —UPDATE SCREEN- 

730 GRAPHICS 8 

740 '? t t? :? :? 

750 FOR X=1 TO II 
760 ? ; GOSUB 920 

770 TEXT X 
780 ? 

790 IF N=1 THEN 820 

808 ? "THERE ARE *; =? N, 7 " STICKS 111 T 
HE PILE" 
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810 kblUklT 

820 ? “THERE IS ONE STICK IN THE PILE" R 
ETUkH 

830 PEI1 —KMSBEKKY- 
8-40 FOP Nu=20u TO 250 
842 SOUItU 0,110.10,8 
848 HEXT Hu 

848 Flip: M=1 10 LOU tlEXT M 

850 SUUIIII 0,0, 0,0 

852 k'ETUPH 

880 ORFiPHICS 0 : EIIIJ 

820 kETl — lNl'Rfj-- 

822 FOP 11=1 10 10 

825 Fuk O0L=O TU 15 STEF' 3 

880 SOUND 0,50,14,UOL 

880 NEXT OOL 

882 NEXT II 

800 SOUND 0,0,0,0 

910 RETURH 

920 Fill —RFiCOtl EL IF' — 

922 FCk TIM TO 4 
924 NOMirkRIC* 1 >2255,' 

928 SOUND 0,NO, 10,8 

928 ML21 II 

930 SOUND U,U,0,0 

940 KEIUF'H 

950 ktl'l —SCfiLE— 

980 FOk 11=1 TO S 
920 F.'EhLI HU 
980 SuUIIU 0 ,MO, 10,8 
990 FUk W-l 10 10-HtXT 11 
1000 NEXT 11 

loio kuk 11=1 10 Sou oil:; i ii 

1020 SUUHlJ 0,0,0,0 
1080 kbxfijkt 
1040 kfcUMI 
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10 DATA 122,109,37/; 
20 BEEPS=500O : SCALE 
RWSH*5300 ! CROSSOUER 
50 GOSUB 100 
60 GOSUB BEEPS 
70 GOSUB SCALE 
BO GOSUB RASBEPRY 
90 GOSUB CRASH 
35 GOSUB CROSSOUER 
96 GOTO 4970 
100 GRAPHICS 6 ? 

1C 

110 ? " THE MUSIC 

•I 


>2,82,73,65,61 
: 5100 : RASBEREY=5200■ C 
4O0 



UTILITY PROGRAM CAM EE 


120 ? "USED TO START YOUR UUN PROGRAM HI 
TH" 

130 ? "SOUtID. USE IT AS FOLLOWS " 

140 ? " 1 LOAD THE MU'S IC UTILITY." 

150 ? "2. DELETE LIMES 50 TO 4930 " 

160 ? "3. ADO YOUR PROGRAM USING SOUNDS" 


530O K'Ell —CRASH— 

5310 SOUND 0,240,14,8 

532U SOUND 1,50,8,8 

5330 Euk M=1 TO 300 : NEXT U 

5340 SOUND 0,0,0,0 

5350 SOUND 1,0, 0,0 

5360 RETURN 

540O KEN —CROSSOUER— 

5410 FOR >i=l TU 255 
5420 SOUND U,X,10.8 
54 30 SOUND 1,255-;:, 10,8 
5440 NEXT X 
545U SOUND 0,0,0,0 
5460 SOUND 1,0,U,0 
5470 RETURN 


170?" LISTED IN LINE 20 " 

180?" (EXAMPLE : QTSNH 1 RASH/' 

190 ? "4 SAME THE: PROGRAM UIIITT A MEIT N 

Al 'lE " 

208 RETURN 
4970 TRAP' 4990 
4980 RUN “D MENU" 

4990 GRAPHICS 0-tHO 
5000 REM —BEEPS— 

5010 FOR 2=1 TO 10 
5020 FOR U=0 TO 15 
5030 SOUNO 0,100,10,U 
5040 NEXT U 
5050 NEXT Z 
5060 RETURN 

5100 REIT —SCALE— 

5110 FOR 2=1 TO 8 
5120 READ II 
5130 SOUND 0,11,10,8 
5140 EUR M=1 TO 20-NEXT IT 
5150 NEXI 2 

5168 TOR H=1 Tu SUOTIEXI U 
5170 SOUND 0 , 0 ,0,0 
5180 REST URL 
5190 RETURN 
5200 REM —RASfctKRY— 

5210 EUR 2=2uU Tu 250 STEP 5 
5220 SUUHU 0,2,14,8 
5230 EUR W=1 TO lO tlEXT M 
5240 NEXT 2 

5250 EUR IT=1 TO 300‘NEXT H 
5260 SUUND 0,0,0,0 
5270 RETURN 


5 DIM ft*(10) 

10 OFEN »t,4,0,“lo¬ 
se UAR=7O0 
40 GRttFHlCS 7 

46 ? -PRESS SPACE FOR A MEM PATTERN." 

47 ? "PRESS ANY LETTER TO STOP " 

50 XC=160/2-1 

60 YC=79/2REI1 —CHOOSE CEN1ERS— 

70 RX=XC <COSUB WAR=X=FUH 
80 RX=YC-GOSUB UARY=FUH 
100 r;;=3 cosue iWNXtmJM-a reii -pick a 

HEM DIRECTION— 

110 RX=100=COSUB OAR 
112 IF FUN<3 THEN 48 

115 IF PEEK 764,'0255 THEN GET #1,A GOTO 
800 

120 RX=3 = COSUB OAR YD=FUH-2 
138 RX=XC/2 : GQSUB WR = L=FUH 
140 FOR 11= 1 TO L 
150 IF X+XCK0 THEN 100 

160 if x+xo>xc THEN 10O 
170 X=X+XD 

180 IF Y+YD<0 THEN 199 

iso if y+yo>yc THEN 100 
200 Y-Y+YD 

202 SETCOLOR 4,9,0 

203 SETCOLOR 1,3,3 

205 COLOR 1 

206 SOUND 0,X» 10,8 

207 SOUND 1,YT3,10,8 
210 FLOT X,Y 

220 PLOT 159-X.Y 
230 PLOT X,79-Y 
240 PLOT 159-X,79-Y 
250 NEXT N 
260 GOTO 100 
280 GRAPHICS 0 
' 290 ? "BfiD ERROR! H END 



7o0 FBI --fUH.IlOtl SUBROUTINE— 
710 FUN=INT(RND< DtRX+l) 

720 RETURN 

80O REII —HHAT BUTTON HAS PUSHED 
810 hI=CHR1 h• 

820 IF Hf=“ “ THEN 4U 
830 TRAP 050 
840 RUN “D IEHJ“ 

850 GRAPHICS u : END 



lu OPEN 11.4.0/1:'" 

20 Din Htao),eiao> 

30 m i 
35 OO-u 

70 GRAPHICS 0:? “ JJFflk h QUICK DEI10 
, I mob RETURN lit" 

BO Y “tflbMEK TO DLL QUESTIONS.* 

9o ? “ THE CURRENT FUNCTION LOOKS LIKE T 
HIS “ 

100 List 1000/1418 

110 ? “ IS THIS THE FUHCTIOH YOU WANT?" 
120 Y “ 4 V / H>j“ 

130 GEi 41 h (il-LHRf' H 

135 IF hI=“N“ THEM 1520 

136 IF Hi THEM 130 

HO GRhPHICS ?-SETCOLOR 0,6,10 

150 ? “EHTER V IIhXINUM 

160 INPUT t,l IF Hi-"" THEtl 01=1 - GOTO 180 

170 Q1=UaL(M l ) 

ISO i “EHTER Y 11111111011 ", 

190 INPUT HI IF THEM Q2=-1=G0T0 21 
0 

200 Q2=UHL4AT» 

210 IF 02'=01 THEtl 7 “HIM IS GREHfER TH 
Ht-1 MAX.—REENTER."=G010 ISO 
220 7 “ENTER X MINIMUM ", 

230 IHF'UT HI' IF Al=“* THEM lO-COJ-T 2 
40 

235 Q3=UhL(H i) 

240 ? "EHTER Y. MAXIMUM 11 ; 

245 ItlF'IJI HI IF HI="" THEN 04=10 GOTO 26 
0 

250 04="hL( HI ;• 

260 IF 03>=04 THEN ■' "Mill. IS GREATER TH 
AN MAX. —REENTER “ GOTO 220 
270 IF 024=0 AMU 01,=o THEM ? "WOULD YOU 
LIKE A Y HI!IS? " GET #1,h AC-cHr P n :■ IF 
H*="Y* THEN MM 
275 IF Hl<>"V" THEN MN3 
280 IF 034=0 AID 047=8 THEN ? "MOULD YOU 
LIKE. AM X AXIS? “ : GET UCA BKHEP AH I 
F E.'l=" Y" THEN 0X=1 
285 IF et<>"Y" THEN QX=0 

290 IF OX THBI 1593 

300 IF OO THBI 181301 

310 REM --DO THE PLuT- 
320 0X=0 

330 FOR' X=Q3 TO 04 STEP (04-03 >-'159 
34>3 GOSUB H300 
350 QY-V-Q2 

368 IF QY<8 TIBI ? "PLOT AT 'X' IS OUT 0 

F THE AREA."=00=8 GOTO 420 

370 OY=QY/<01-02)T79 

380 0Y=79-QY 

390 IF OY40 THEN 366 

395 PRINT X,Y 

396 COLOR 2 


397 SOUND 0,QY*2,10,8 

400 IF IDT 00 THEN PLOT OX,OY 00=1 

418 IF 00 TIBI DRAH10 OX.MV 

420 ttt=CiXM 

425 SOUND 0,0,0,0 

4.30 TEXT X 

440 ? “ANOTHER PLOT? (Y - N>*. GET 41.A 

Hi•LF# I s H f 

45U IF ht="Y“ IhEN 30 
460 MU IU BijOU 
1000 Y=LUS<X> 

1500 RETURN 

1520 REM -NO, S0ML1HIMG ELSE— 

15.30 GRAPHICS 0 
1540 Y ? : ? 

1550 ? "ENTER YOUR FUNCTION BY TYPING 10 

00 ," 

1551 7 "IHEll YOUR: FUNCTION. 1000 IS THE 

1552 ? "LINE NUMBER UP THE PROGRAM. DO 
NOT" 

1554 ? “USE UHRIhBLES BEGINNING WITH Q. 
F'RILSb" 

1555 7 “RtlURH AFTER ENfERIMu 1000 HID Y 
OUR" 

1556 7 “FUNGIlull. THEN TYPE. RUN AND F'RE 

1557 f "RE1URN. “ 

1560 END 

1580 UU lU 2t*>J 

1590 REM —DRAW X AXIS, TILS— 

1 c.iJU LULUK 1 

Ic. 1U t!H= hBS(02V4Q1-Q2) 

16bo U2=79-UH*79 

1630 PLOT 0,02 URhWTO 159.02 

1648 v “Would you like tics um hie x hxi 

S? " MEI »l.H hl=CHr:I(ri> 

165*) IF AIO“Y" THEN 3O0 
1660 : "ENfER 'TIC lNTERMt-ll . ", 
lc-cj IHF'UT 01 

1670 IP QK=0 1HEH ? “OUT OF F'hNGE . “,GOT 

0 16o0 

i860 IF Q34=0 HID U4:-0 IHEN 1,60 
1690 FUR UW=03 TO 04 STEP id 
1700 ull=4 QN-U3 > (04-03) 

1710 QY=CN*159 
1720 luLuF: 1 

1730 PLOT QY, 02-3*4QZ>=3>Tf'HHTn OY.P-+? 
*<QK=88> ' 

1749 NEXT QU 

1750 GOTO 308 

1760 REM -COtflJlE "DIFFERENT" START— 
1770 UL=ABS(Lil-UT HOLMHHOL > UL-L'LSuT I) 

L=-UL 

1780 FUR (M=QL TU 04 STEP 0T 
1790 GOTO 1700 

1800 REM -ORAM Y AXIS. ETC- 

1810 COLOR 1 

1820 QA=ABS4 Q3 ,V( Q4-Q3) 
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1838 QZ=QA*160 

1840 PLOT GZ,0=ORAMTO HZ-79 

1850 ? 'MOULD YOU LIKE TICS OH THE Y AX I 

ST " GET #l»A=At=CHRi< A) 

1860 IF AtO'Y" THEN 310 
1870 ? 'ENTER ’TIC INTERVAL. 

1875 INPUT QT 

1880 IF QT<=0 THEN ? "OUT OF RANGE."GOT 
0 1870 

1890 IF Q2<=0 AND PI >~0 THEN I960 
I960 FOR QH=Q2 TO Q1 STEP QT 
1910 BN=< QM-Q2 ,v( Q1 -02) 

1920 0Y=79-»K79 

1930 PLOT QZ-3«GZ>=3),QY = DRAUT0 PZ+3f'P 

Z<=160),QY 

1940 NEXT OH 

1950 GOTO 318 

I960 REN —DIFFERENT START- 

1970 QL=ABS( Q2/CT)= QL=INT( QL >= GL=OLTQT= 0 

L=-0L 

1980 FOR QW=OL TO 01 STEP GT 
1990 GOTO 1910 
2000 TRAP 2020 
2010 RUH "0=MEWJ" 

2020 GRAPHICS 8 END 


210U GRAPHICS 0 
2110 Dill A*< 10) 

2120 Din A<10> 

2130 XS0UND=5000 : OSOU1O=5100 
2140 YSOUND=5200 
2150 OPEN 11,4,8,“K=* 

2190 PRINT “)' 

2208 POSITION 2,5 ? “ 1 2 

3“ 

2210 POSITION 2,11=? “ 4 5 

6 “ 

2220 POSITIC*I 2,19- ? ' 7 8 

y“. 

2300 FOR X=12 TO 26 STEP 14 

2310 POSITION X,u 

2320 EOR Y=0 TO 22 

2330 V “1 

2340 NEXT V 

2350 NEXT X 

2360 POSITION 2,7-? *_ 


2370 POSITION 2.15 = ? 



23S0 POSITION 12.1=? “ TIC TAC TOE “ 
239a POSITION 8.3=? "THE SCREEN IS NIIK 
RED" 

2400 POSITION 6,22 = ? “PRESS SPACE TO STa 
K1 GONE ■; 

2410 GET IP A 
2470 EUR RESET=1 TO 9 
2472 h< RESET P=0 
2474 NEXT RESET 
248U >:=l =0=2 
2490 T=0 

2500 REtt —ORhN GRAPHICS GRID- 
2530 GRAPHICS 3 
2540 SETCULOR U,5,7 
2545 sETCOLUK 1.2,12 = COLOR: 1 
2550 PLOT 0.6 DRPWTO 39,6 
2560 RLuT O■ 13 =ORhMT0 39-13 

2570 RIOT 13,0=URAHTO 13,19 
25c® PLOT 26,0 = DRANTO 26,19 
2590 REtl - 

2680 ? "ENTER YOUR IttVE " 

2610 GET II,A 

2640 IF A<49 OR A)58 THEN 2610 
2650 A*=CHRKA)=I1=UAL< At) 

2655 IF «nK>0 THEN 2610 

2660 < "YOUR HOUR. Ml 

2670 IF SI THEN 2480 

2680 A<n>=X 

2690 GUSU8 2840 

2700 REH -NON IT'S HY TURN— 

2710 IF T=0 T1€N 2738 
2729 GOTO 3100 

2739 REN —TURN=0— 

2740 IF AC5HJ THEN n=5 = «n)=0 GOSUB 284 
0=GOTO 2760 

2750 H=l =A'MK) GOSUe 2840 
2760 ? ' W NOUE 
2770 ? mi 
28O0 T=1 
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2810 SE=0 

2820 GOSUB 3420 IF SI THEN 3650 

2839 GOTO 2590 

2840 UN WM> GOTO 2850,2950 
2858 REM --X— 

2860 GOSUB 3839 
2820 HEM — URAII AN X— 

2880 UXOR 2 
2890 EUR X2=0 TO 2 
29O0 PLOT CX-X2.CY+X2 
2910 HOT CX+X2,CY+X2 
2920 PLOT CX-X2.CY-X2 
2930 PLl'l CX+X2,CY-X? 

2940 NEXT X2 

2945 GOSUB XSMJNU • RETURN 

2950 REM —DRUM 011 0— 

2960 GUSUB 3039 
2920 UOLUR 3 

29PM H OT Di-2,(:Y-2NlR.'rtUTH I P+P CY-? 


2990 URhITIO LX+2',CY+2 
sOUU DKhHTU CX-2,L'Y+2 
3010 IjRhHTu CX-2.CY-2 
3020 GOSUB uSGUNO RETURN 
3030 REM — X1..Y1-- 
3040 I1=M-1 
3050 Y1-1NTU1'3) 

3060 Xl=INTi3y.M i-Yl >tu 5 9 

30, 0 CX=7+Xltts 
3080 LY-3+Y1T? 

3U9U KEILiRM 

3100 RtM — OTHER THntl 1 — 

31.10 St-X^GOSUB 3420 

3120 IE si lHtll : “YOU Nil!!!!!“‘GOSUB YS 
UUIU UUTO 

3130 IP MOf 1X0 05 THEN .-.kit 
3140 sE-U‘G03UB .s 57U 
si50 ll R.,0 THEN IPR 0010 Sou 
situ It RliOt. 1 xU.05 1HEN si90 

31, '0 SL=X GUSUB 35, 0 

3180 l! K ,0 M'N M-K 1,0III 3400 
si90 H KJILK. 12,0 1 IHfcN s21U 


3200 ie up iutiu Hi9 , up 
HU hi, -x> THEN P'=4+2 H' 4 .■., 0 
0 IHLM ll-P GUlU 24U0 


3d 1U 

1^ KfilJ 1 . 1 XU ‘_i 

ii tu 

4d*u 

3ddU 

IP Hi. 2 ■=!■! Hi ID 

H' 4 

! T-iiiu 

N n= 

GUI0 S4U-J 



3dj;u 

If- H's 4 ,= ii hHD 

h- d •-* 

. hMLi 

N ll=, 

GOiU s-100 



3d4U 

IP Hi6 XX hMU 

it c y- 

•! mI ill 

H 11=5 

GO10 2400 



3d1.u 

IF rf d hJiH 

H- o )- 

! Hi ID 

It 11=2 

GO 10 S4UU 



JdcU 

IF H -4 Hi ID 

H' 6 J • 

; nllil 

ti m=i 

GUlu 3400 



3d.-ti 

ip in 2 9=:; hmd 

h* ?' 

■! hriu 

H 11=1 

GOIU 340U 



3ddU 

IP Hi 8 9—X hIIU 

H. 1 9 = 

: hi id 

N Ik. 

GOiU S4U0 



3ddU 

11 Hi 6 )'=X hND 

h(3> • 

; hi io 

H IP. 

• LaU i U 3*1 UJ 




1 ,‘-U 

. 9 9-0 
: -3 9--0 
. 1 9-0 
. 1 9-0 


< 2 9-u 


lHh 
THL 
THE 
I HE 
THE 
THE 
THE 
THL 


3300 IP At 8 9=X HNU HU)->; AML' (K7M» I HI 
H It-T GUTO 3100 

3310 IF A<2)=X AND A(99=X UNO W si-0 THE 

N 11=3 GOTO 3400 

3320 PEN —CHEEK POP DRAM— 

3330 PUR XI=1 TU 9 

3340 IK A(X19=0 THEN 3200 

3350 EfcXT XI ' "THE GAME IS A DRAM' 1 GO'JU 

b '/SOUND GOTO 3/80 

3360 11= HIT' RILi 19:1-9 9+1 

33,0 IP AU19O0 IHttl 336U 

3380 GOTO 34O0 

3390 END 

3400 At 119=0 ‘GOSUB 2840 GOTO 2/60 
3410 END 

3420 REM —SEARCH1-- 
3430 LiATh 1,2,3 
3440 DATA 4,5,6 
3450 DATA 7,8,9 
3468 DATA 1,4,7 
3470 DATA 2,5,8 
3488 UAlA 3,6,9 
3490 Data 1,5,9 
3500 DATA 3,5,7 
3510 RES1OPE 
3520 Sl=0 
3530 POP: XI=1 TO 8 
3540 READ A.BC 

3550 IF A(A9=SE AND A<B9=SE A!ID If C )=SE 

THEM $1=1 ‘RETURN 

3560 HEXI XI 

3570 REM — SEAREH2— 

3580 REST OPE 
359M R=0 

3600 PUR XI=1 TO 8 
3610 RE All A,B,C 

3620 IP Hi A 9=SE HMD A< 8 9=SP. AND A C MJ 1 
HEN R=G RETURN 

3630 IP AtArSE AND A'C'kSE ANN If P'=0 I 
HEN R=PERE1UPN 

SGlU ip 8 ,-:L hMU H'.T t tiflLl hvHi=U 1 
IIEII K=h KtTUFtl 
s65*0 Ml .2 1 .. 1 PEI URN 

3660 • “I 14111!!!!!!!!“ GOiOL: TSOUND GOTu 

j (dU 

s 750 RE 1 OR! 1 

3770 REI1 --GAME IS UULF - 

3760 i “00 YOU WANT TO KLhT hGhIIL 'VIE 1 

3785 Gtt SI m „ ■ 

3/90 sl-xiEuR T=u Tu 9 if 1 =j tiEXT 1 

soUO 11- h1=“Y" THEM 2460 

381U IP Hi,; "IF THEM 3765 

3820 I PitP' S840 

3630 RUN "U 1 MENU" 

3640 GRAPHICS 0 EMU 
5*000 REM — XSUUMU— 

5010 SUUNIJ 3,68,10.8 
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5U2U suUHU a, tii, i o, a 
Sum suund i,%,io,s 

5U4U SUUND 2,121,10,8 
5050 L.IJ UJ 5150 
5100 ktn —uiumio— 

5110 iUUlHJ 3,72,10,8 
5120 SOUIW 0/144,1U,8 
51 A) SOUND 1,121,10, S 
5140 SOUND 2', 31,10,8 
51 to FOR W=1 TO 20UMIEXT II 
51 t.U I-OK UFF=0 10 3 
51 VO SOUND liFF, 0.0,0 
51t'0 NEXT OFF 
5190 RETURN 
5200 PEN —YS0UNU-- 
5205 F'Uk T111=1 Tu 5 
5210 FOR 11=15 TO o STEP -1 
5220 SOUND 0,29,10,H 

5230 sound i,i93> to, 15-11 

5240 I it XT II 
5250 UtXI Till 
5.'.to SOUND 1,0,0.0 
52VO RETURN 


10 Dill A*<20> ( 5 MFM4S B uc -pog.? 

20 OU.COLOfi=0 OWKE=10t» • NXY=20O8 SAUPA 
T =3000 : WHA TLIHIT =5000 

50 OPEN #1,4,0, "KX ” 

60 GRAPHICS 0 ? “ TO YOU WANT TO DR 
ftt-1 0 IIEH PICTURE OR" 

61 GOTO 70 

62 ■ = ? =? ■? ft!;” HRS HOT FuUflD ON DISH 
." 'FOR H=1 TO 20O0 NEXT 11 

63 G010 60 

70 ? "LOOK AT ON CIO ONE? <0=010 N=NEHJ 
75*TRAP 62 

80 GET #1,0 «=CHRf(0) IF At="0" THEN 45 
00 

85 IF AtO"H“ THEN 80 
90 GRAPHICS 0 

100 ? " SHAPE " 

110 ? " THE SHAFT PROGRAM USES A JOVSTI 
CK IN" 

120 ? "NUISER ONE SLOT TO ORAM THE DESIG 
H" 

130 ? "WHICH YOU CONTROL." 

140 ? " FIRST, TYPE IN THE GRAPHICS MODE 
YOU" 

150 ? "WISH TO USE, THEN THE. COLOR, THEN 

11 

160 ? "MODE THE STICK HI THE DIRECTION V 
UU" 

170 ? "WANT TO GO." 

180 ? * WHEN YOU WANT TO DRAW, PUSH THE 
RED” 

190 ? "BUTTON." 

200 ? :? :? " PUSH SPACE TO CUNTIHUE 

210 GE1 #1,A-GRAFHICS 0 

220 ? " INPUT GRAPHICS NODE <3 - 8>? " 

?30 fTT #1 ,A 

240 IF A<51 OR A>56 THEM 230 
250 A$=CHRt< A> : ? At 

260 BIG=UAL<Af> 

2V0 6=100 

2 SU IF B1G>5 THEN S=FRE(U>-2- <BIG-5FtloO 
0 

290 IF SUOU I HEN GRAPHICS 0 ? * YOU MAY 
ITU I HhUE ENOUGH MEMORY " ? “USE A LOHER 
_ GRAPHICS NUMBER . "GOTO 220 
300 KEIl —GET STARTING POSITION— 

310 GRAPHICS BIG-SETCOLOR O,12,6SETC0L0 
P 1,3,8 

320 IF B1G=3 ufi 6IG=5 UF: B1G=7 THEM COR 

=4 

330 IF BlG=4 OR B1G=6 OR BIG-8 THEN CuLR 

840 Y "YOU HALE 'O' TO "iCOLR-li* CULORS 
hUAILABLE." 

350 Y '"U‘ IS BACKGROUND." 

360 '■ “INPUT T>€ COLOR. 

370 GET #1,A 

380 IF A-48<0 CR A-48XXlLR;-l THEN 370 
390 At=CHRt( A > COLR=OAL( At > ■ COLOR COLR-? 
cap 
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400 GUSUB IJHuTL 1 HIT 
440 X=HLllt-'2Y=YLIIV2 
450 IF X<0 THUI X-0 
468 IF X»1I11 THEM X=XL1I1 
470 IF Y<0 TUtll Y-U 
480 IF YYYLIII THEM Y=YLU1 
480 HOT X,Y 

500 IF C0LR=U THUI ? “YOU CAN'T SEE 0. I 

T IS THE.”-? “SAME Ho BACRGROUtiD IT IS H 

Ul l '1 ! COLOR 1 LOLR= 1 CO Io 480 

505 FOR M S 1 10 500-NtXl II 

50o Y • Y ■ < ■< “POSH RETURN TO SAUL IHt 

Ril l URL OR" 

507 Y "UF'AH H IIEU ONE." 

510 It PttK< 7b4X>255 THtN UOSUB CHOICE 
5X0 IF S11CK<0X>»5 lhttl GUSUB MMY 
530 IF S1WI/0M AND oT1l:M. 0,'O15 THEN 
COLOR COL K FLU I X,Y : CULOP Ut.DCULOR I PLOT 
ULOX,ULOY 

535 IF STR1G<.0>M HIIO SriCI'(0)=15 THEN c 
ULOR CULR F'LUI X,Y 

540 IF SlRIOUC'-U lHEil COLOR COLR PLOT X 

j50 FOR MM to 3O0-BIG-NEXT II 

560 GOTO 510 

1000 REM —CHtfDE— 

1010 GET #l,A'A4=CHR$f A> 

1O20 IF A >47 AID A<53 THEN COLR=UAL<ft#> 

1030 IF A=155 THEN PDF GOTO SAUF'AT 
10-10 RETURN 
2000 RE II —HB«Y— 

2005 OLC«=>LOLDY=Y 

20136 XX0L0R1=CL0C0L0R 

2010 IF ST ICK<0>=6 THEN X=X+1Y=Y-1 

2020 IF STICK(0>=7 THEN X=>!+1 

2030 IF ST1CK(0>=5 THEN X=X+1V=Y+1 

2040 IF STICK(0>=13 THEN Y=Y+1 

2050 IF ST1CK<0>=9 THEN ;I=X-1Y=Y+1 

2060 IF STICK<0>=11 THEN X=X-1 

2070 IF STICK(0)=10 THEN X=X-1 Y=Y-1 

2080 IF STICK!0>=14 THEN Y-Y-l 

2090 IF X<0 THEN X=0 

2100 IF X>XLIH 1HEN X=XL.1I1 

2110 IF Y<0 THEN Y=0 

2120 IF Y>YLI11 THEN Y=YLIM 

2130 LOCATE X,Y,OLUCOLOR 

2140 RETURN 

3000 REM —SALEPATTERN— 

3010 ? :? :? •? ”00 YOU UAUT TO SHOE YOU 
R CREATION" 

3020 ? “ ON DISK? (Y/ll)"i 

3025 TRAF 3010 

3030 GET #1,A:»=CHR*(A> 

3040 IF M="Y“ THEN GOTO 3200 
3050 IF AtO"N" THEN GOTO 3030 

3060 ? ■ ? :? ■? :? : ? "WANT TO DRAI1 AMOT 
HER OFt? (Y / N>"; 

3061 TRAP 3063 

3062 GOTO 3870 

3063 GRAPHICS O DD 
3070 GET *1,A M=CHRKA> 

3080 IF A4="Y“ THEN GRAPHICS 0 GOTO 90 
3090 IF A$<>"H" THEN GOTO 3070 


3100 RUN "0 MENU" 

3200 REM —SALE THE PICTURE— 

3220 GUSUb 4000 
3300 UF'EN *2,6,0,At 
3305 PRINT *2,BIG 
3310 FOR Y=0 10 YLIN 
3330 FOR X=0 Tu >1111 
3340 LOCATE X,Y,COLR 
3350 PRINT *2,COLR 
33t,U NEXT X 
3380 NtXl Y 
340U CLOSE *2 
3410 GOTO 30tO 

3980 REM —IHt THE F'lCIUKE— 

4000 H< = “01 PICIURE" 

4099 ? /? A* 

4100 R'ETURII 

4500 REM —RECALL THE FlClOFE-- 
4510 GUSUb' 4000 
4520 UF'EN *2,4,0,At 
4530 INPUT *2,BIG 
4540 GRAPHICS BIG 

4550 SETCOLUfi 0,12,6 : S£TCUL0R 1,3,8 

4560 GOSUEl HHaTLIIIIT 

4570 FOR Y-0 TO YU II 

4580 FUR >1=0 TO >1111 

4590 lHF'Ul *2, COLR 

4600 COLOR CULP PLOT X, Y 

4b1U NEXT X 

462U NEXT Y 

4630 LLusE *2 

4640 GUlU 3060 

5O0U REM —HHa'I ARE THE GP LIMITS— 
5010 If blG=3 lHtN XL1M=39 YLII1M9 
5020 IF BlG=4 OR HI6=5 THEN XLlliM'S YL1I1 

— V‘4 

5030 IF B1G=& OF: 016=7 I HIM XI 111=159 YLl 

11=79 

5040 IF 016=8 I HEN >1111=315 ',1111=159 
50SU KtiURII 
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f^C\HEck^co^ ) 


10 01(1 A*<10>,COtt*(5>,lMl*<25),NHO*<25> 
, THIMGt<25),TD*( 1) 

20 U0LUE=500 TftG=600^«RDS=700 IWEV=S00 
WRITE=300 

30 CNUM=0 ; 110=0 ; DA=0 : YR=0 
50 OPEN 11,4,0,"K : " 


100 GRAPHICS 0? 
K 


CHECKEOO 


110 

120 

130 

140 

145 

146 
150 

155 

156 
160 


1. WRITE A CHECK" 

2. MAKE A DEPOSIT” 

3. SERUICE CHARGE OR" 
OTHER ADJUSTMENT" 

4. F110 TAX DEDUCTIONS" 

5. FDD BALANCE" 

6. EXIT TO MASTER IENU" 

SCREEN" 


" TURN PRINTER OFF FOR 
"OISFLAY ONLY," 

" ENTER THE NUMBER. 

170 GET *1,A IF fr(49 OR A>54 THEN 170 
175 GRAPHICS 0 
ISO A*=CHR*<A) 

190 TRAP 200:GOTO 210 

200 GRAPHICS 0 : END 

210 IF At=''6" THEN RUN "D : MENU" 

220 PICK=UAL(A*> 

230 IF F1CKM OR PICK=5 THEN GOSIJB 700O 
240 OH PICK GOTO 1008,2080,3000,4000,500 
0 

500 REM --INFUT A 1U13ER— 

510 TRAP 520 GOTO 540 
520 TRAP 520:? ■ 


530 ? ” “ 

548 INPUT NUMBER 
550 RETURN 

600 REM —INPUT DATE- 
610 TRAP 628 GOTO 640 
620 TRAP 620:? - 


630 ? “ " 

640 INPUT MO,Oh,YR 
650 RE1UKN 

700 REM —INPUT HURDS— 

710 TRAP 720 GOTO 748 
720 1RAP' 720:? ■ 

U 

730 ? “ “ 

740 INPUT NUW* 

750 RETURN 

600 REM —INPUT DOLLARS— 

610 TRAP 620:GOTO tH0 
820 TRAP 820:? » 

u 

830 ? " “ 

840 INPUT DOLLARS 

850 DOLLARS^ INK DOLLARS* 100 > )-'100 

860 IF DuLLARS>959999 OR DOLLARSC0.01 TH 

EH ? “ "GOTO 820 

870 RETURN 


90& REM —HRITE TO DISK- 

905 IF CO0E*="COO£2" US' CuOE*=“COOE3" TH 

EH CNUt1=99999 

910 PRINT 12,CODEL 

920 PRINT #2/CNUH<“,“;M0<“,“>OAi*,*;YRi" 
,";HHO* 

930 PRINT #2,THING* 

540 PRINT *2;COLLAR'S,",“;TD* 

950 RETURN 

100U REI1 —HRITE A CHECK- 
1010 UPEN *2,9,0,"D-TRANSACT“ 

1U2U C:UUH = "LUUL1" 

1030 GRAPHICS 0 : ? ‘ TYPE u FOR CHECK NU1 
ttR MIL) PUSH" 

1032 ? "RETURN TO RETURN ID MENU." 

1035 ■( “CHECK NUMBER?" 
ltMO GUSUP; UhLUE 
1050 LIIUH-I IJMChK 

lk) 55 IF CNUIMj I HEN CLOSE *2 GUlU 100 
1060 < " DhTEIIO.DA.YR (EXAMPLE:12,31, 
SO,'!"" 

1070 GOSUB TAG 

1100? " WHO NFS CHECK NRITTEN TO?" 

1110 GOSUB NOROS 
1120 NHO*=WHW* 

1150 ? " HHAT HAS IT FOR 7 ” 

1160 GOSUB HORDS 
1170 THING*=HIM* 

1200 ? " HOH MANY DOLLARS?" 

1218 GOSUB IICPEY 

1220 C«XLARS=-OOLLARS 

1258 ? " IS THIS TAX DEDUCTIBLE? (Y / N> 

1260 GET * 1,A : IF A<>89 AID AO78 THEN 12 
60 

1270 TO**CHRt(A)? TO* 

1280 ? " IS ALL OF THIS INFORMATION COPE 
ECT?" 

1290 GET ttl,A= IF A<>89 AID A<>78 THEN 12 
90 

1300 IF A=78 THEN 1030 

1310 GOSUB HRITE 

1320 GOTO 1030 

2000 REM —MAKE A DEPOSIT— 

2010 C00E*="CG0E2" 

2020 GRAPHICS 0:? * DATE OF DEPOSIT 
(EXAMPLE: 12,31,80 >?" 

2030 GOSUB TAG 

2100 ? “ HOW MANY DOLLARS DEPOSITED?" 

2110 GOSUB IWEY 

2150 ? ■ IS ALL OF THIS INFORMATION CORK 
ECT?" 

2160 GET tl,A:IF A<>89 AID A<>78 THEN 21 
60 

2170 A*=CHR*(A>:1F A*="H" THEN 2028 
2180 OPEN #2,9,8, "D: TRANSACT“ : GOSUB NRIT 
E 

2190 CLOSE *2:GOTO 100 

3800 REM —SERUICE CHARGE OR ADJUSTMENT- 
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3O10 CUGt!=“CO0E3“ 

3020 GRAPHICS 6 ? * DATE UP UPDATE (t 
XrttLE 12,31,00 >?" 

3030 GOSUB TAG 

3100 ? " HOW IWIY DOLLARS TO CHANGE?" 
3110 GusUB HUEY 

3120 ? “ hOU UR SUBTRACT ?(A=AOO S*SUBTRA 

ci r 

3130 GE1 41,A : IK A<>65 rtC H\ )83 THEN 31 
30 

3140 11 A=B3 TttJI DOLLARS-?-l.YtDOLLARS 
3145 A!=CHRI(A>‘? A! 

3150 < “ REASON FOR ADJUsTHEII'l?“ 

3160 GOSUB I'lXDS 
3170 THING!=Mtl 

3100 ? " TAX DEDUCTIBLE ITEM? IY41>“ 

3100 GET 41,A ; IF A?>33 AID AO?8 THEM 31 
00 

32O0 TU!=CHR1?A) 

3205 '? TO! 

3210 ( * IS ALL UF THIS IHKORIIhTIOII CCRR 
ECT?" 

3220 GET 41,A IF A<>89 Alt h<>78 THEM 32 
20 

3230 AKHRICA) IF A!="N" THEN 302O 
"3240 OPEN 12,0,0, “D ■ TRANSACT“ GOSUB HR IT 
E 

3250 CLUSE I2GUT0 100 

4O00 REM --Fill) 1AX DECOCT lulls— 

4010 OPEN 12,4,0,“OOkMTSACT” 

4020 GulO 6000 

4030 GRAPHICS 0 CLOSE 12 GOTO 100 
5000 KEI1 —FUlJ BhLHIICE— 

5010 UF Ell #2,4,0," 0 T RAt (SAC 1 * 

5O20 GUIO 5040 

5030 GRhF'HICS O CLOSE 12 0010 100 

5U40 BAL=U 

5050 IRhP 5o3U 

5Ob0 1 HF'Ul 12, CUUEt 

50G2 lllF'Ul 12,CHUM, 110, Oh, YK,UHUJ 

5064 1HFU1 12, THING! 

5066 IIIF'UT 42,DOLLARS,TO! 

5080 BAL=BAL+OOLLAPS 
5685 IF CIWKSTAK'T THEM 50ft< 

5090 IF COOE!="COOE1" THEM GOSUB 620Q 
5100 IF COOE!="COUE2" THEM GOSUB 6400 
5110 IF CClUE!="C00E3" THEM GOSUB 660O 
5128 OTTO 5050 
6000 REM — INPUT TO FRUIT— 

6005 BAL=0 

60136 TRAP 4030 

6010 IIIF1JT 42,CODEt 

6012 INPUT 42.OU1.NO,DA,YP.IIHOt 

6014 IHFUT 42,THING! 

6016 IIIF'UT 42,00LLARS,TD! 

6018 BAL=BAL+OOLLAR$ 

6019 IF C0DE!="C0CX2" THEN 6WJ6 

6020 IF T0J="N" THEN 6010 
6030 IF CFUKSTART THEN 6010 

6040 IF COOE!="COUE1" THEN GOSUB 620O 
6050 IF CuUE!="C0UE2" TFEN GOSUB 6400 
6060 IF C00E!="C00E3“ THEN GOSUB 6600 


6070 GOTO 60U6 

6200 REM -PRINT A CHECK— 

6210 TRAP 6300 

6220 LPR1HT LPRINI LFRINI "CHECK 4","0 
ATE","AMOUNT" 

6230 LPRIHT ’___" 

6240 LPRIHT 

6250 LPRIHT CHUM,ID;",";DA;",";YR,DOLLAR 
S LPRIHT 

6260 LPRIHT "BALANCE = !";BAL LPRIHT 
6270 LPRIHT "TAX DEDUCTIBLE? "iTD! LFRI 
NT 

6280 LPRIHT "TO MW3XLPRIHT 
6290 LPRIHT "FOR- ";THING! LPRIHT 
6300 GRAPHICS 0 ? " CHECK 4 ";CtU1 
6310 ? " DATE ",nO;",";DA;",";YR 
6320 ? “ AMOUNT = !"; DOLLARS 
6330 ? " BALAHC£= !";BAL 
6340 ? " TAX DEDUCTIBLE? ";1D! 

6350 ? “ T0 ; ",HHOS 
6360 ? “ FOR THING! 

6370 ? “ PRESS SPACE Tu Gu OIL" 

638U GET 41,A 
6390 RE1URN 

64UO KEM —PRINT H UEFUSII — 

6410 TRAP 65U0 

6420 LPRIHT LPRIHT LPKltll "UAlt MIO 
i “iUA; ",'ViX LPRIHT 
6430 LPRIHT ‘HUM Otp'USl ILL) = l",DGLLA 
RS LPRIHT 

6435 LPRIHT “BALANCE = I",BhL 

65uu cRhP'HICS 0 ? “ DATE . M1U;",“;Um; 

“,“,Yk 

6510 < “ rtlXHT DEFtlSI IEO = t“,DOLLARS 
6515 Y =? “BALANCE = !“,BhL 
6520 V “ PRESS SPACE TO GO UM.“ 

6530 GE1 41,A 
6540 RETURN 

6600 KEM — PRINT AN ADXTSTI1EMT— 

6610 TRhF' 670O 

6620 LPRIHT LPRIHT 'LPRIHT “OhTE “iMU 
i",“iOA;",“;YR LFRINI 
6630 LPRIHT “MOUNT OK ADJUSTMENT = !“,0 
ULLARS=LPRIHT 

664U LPRIHT “TAX DEDUCTIBLE? “iTD! LFRI 
HT 

6&50 LPRIHT “REASUN FOR ADJUSTMENT “ 

6660 LFRINI ” *,THING! 1 LPRIHT 

6670 LPklHl “BALANCE = ",bAL 

6700 GRAPHICS 0.? “ DATE • “,HOi",*;D 

Ai'ViYR 

6710 ? “ HMOUII OF ADJUSTMENT = “i DOLLAR 

6720 Y “ I AX DEDUCTIBLE? “ilD* 

6730 ■) “ REASON FOR ADJUSTMENT •“ 

6740 ? “ ", IHllIC! 

6,50 7 “ BALANCE = “,BA1. 

6760 ? “ PRESS SPACE 10 CO OIL" 

6770 GET 41,A 
6780 RE IURN 
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7000 REM --GET STORTING CHECK HUBER— 
7010 GRAPHICS 8 ? ‘ INPUT STARTING 
CHECK HUBER", 

7028 INPUT A* 

7038 TRAP 7010 
7040 start=ual<a*: 

7050 IF STARK 1 OR START>99999 THEN 7018 
7068 RETURN 


CPCCK » DATE AMOUNT 


10! 4,1,80 -45 78 

BALANCE = *-45 78 
TAX DEDUCTIBLE? N 
TO MA BELL 


FOR' LOUSY PVUC 'ERL'ICE 


DATE 4,7,80 
AHOU1T OEFUSITEO = *1200 
BALANCE = *986.92 

DATE ' 4,7,80 

Hit* JUT OF ADJUSTMENT = * 

ThX DEDUCT IEEE? N 

REASON FUR RtUUSTMENT • 
CLERDRAWN LAST 

BFLrtCE = 971.92 


CHECK I DATE 14 Id JIT 

102 4,2,88 -56 87 

BALANCE = *-102 65 

TAX DEDUCTME? N 

TO' RIPItWf P»ER I, LIGHT 

for- Lion: 

CHECK » DATE HajHT 

103 4,4,80 -110.43 

BALANCE = $-213.08 

TAX DEDUCTIBLE? H 

TO MASTERCHhRGE 

FOR' EUERYTHIMG LAST CHRISTMAS 


15 


3 CHECKS 
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